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APPENDIX  A 


DESCRIPTION  OF  TERRAIN  FOR  MOBILITY  MODELING 


This  appendix  contains  the  description  of  quantitative 
characteristics  of  terrains  necessary  for  the  operation  of 
the  AMC  'll  Vehicle  Mobility  Model. 

Methods  for  Describing  Terrain 

Areal  and  Linear  Terrains: 


Areal  terrain  units  can  be  represented  on  a  map  as  an 
area  bordered  by  an  irregular  closed  line.  Linear  terrain 
units  appear  on  the  map  as  a  line  because  their  width  is 
relatively  small  compared  to  their  length.  A  ravine  or  a 
river  is  a  linear  terrain  unit. 

The  "WES  Terrain  Description  System"  was  used  to  charac 
terize  areal  and  linear  terrain  data  for  the  ground  mobility 
model.  Only  a  brief  explanation  of  this  system  is  given  in 
this  appendix.  A  more  complete  explanation  can  be  found  in 
Volume  1  of  Reference  5  (listed  at  the  end  of  the  main  text 
of  this  report) . 

The  terms  and  values  used  to  describe  both  areal  and 
linear  terrains  are  defined  in  Table  Al.  Each  attribute  of 
a  terrain  that  is  considered  to  affect  mobility  is  called  a 
terrain  factor.  Related  factors  are  grouped  in  factor 
families,  which  are:  surface  composition,  surface  geometry, 
vegetation  and  hydrologic  geometry. 

Each  terrain  factor  can  be  quantitatively  characterized 
in  terms  of  the  terrain  factor  classes  given  in  Table  Al.  A 
terrain  unit  is  then  described  by  an  array  of  terrain  factor 
class  numbers.  This  array  is  designated  by  a  terrain  unit 
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number.  The  final  product  of  the  system  is  a  terrain  map  and 
a  table  that  shows  all  the  factor  complex  numbers  for  each 
terrain  unit. 

Areal  Terrain  Maps: 

The  following  procedures  are  followed  to  form  an  areal 
terrain  map  legend:  One  factor  at  a  time  is  mapped  to  form 
factor  maps  by  depicting  areas  within  which  the  terrain  fac¬ 
tor  class  number  is  constant;  factor  maps  are  then  overlaid 
to  form  factor  family  maps  and  the  factor  family  maps  are 
overlaid  to  form  a  terrain  factor  complex  map.  Terrain  fac¬ 
tor  class  numbers  are  then  replaced  by  terrain  unit  numbers 
on  the  terrain  factor  complex  map,  and  a  legend  relating  the 
terrain  unit  number  to  the  respective  terrain  factor  class 
numbers  is  prepared.  Examples  of  an  areal  terrain  map  and 
legend  are  shown  in  Figures  A1  and  A2,  respectively. 

The  areal  terrain  data  are  entered  directly  into  the 
computer  in  the  form  shown  in  the  terrain  map  legend.  The 
terrain  factor  values  which  correspond  to  the  terrain  factor 
class  numbers  (Table  Al)  are  a  permanent  part  of  the  AMC 
Mobility  Model. 

Linear  Terrain  Maps: 

Linear  terrain  maps  are  prepared  in  much  the  same  way 
as  areal  terrain  maps,  except  that  a  single  line  representing 
a  linear  feature  is  overlaid  successively  with  a  factor  map 
until  all  the  factors  are  overlaid.  The  factor  complex  number 
is  then  replaced  by  a  terrain  unit  number,  and  a  legend 
relating  the  terrain  unit  numbers  and  terrain  factor  numbers 
is  prepared.  Examples  of  a  linear  terrain  map  and  legend 
are  shown  in  Figures  A3  and  A4,  respectively. 

The  only  features  mapped  as  linear  terrains  at  present 
are  drainage  features.  Other  linear  features,  such  as  road 
embankments,  will  be  added  at  a  later  date. 
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FIG.  Al.  Example  of  a  Terrain  Factor  Complex  Map 
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FIGURE  A2.  Example  of  a  Terrain  Map  Legend 


FIG.  A3.  Example  of  a  Linear  Terrain  Map 


2 


7 


7 


3 


2 


3 

8 

1 

8 

2 

1 

4 

10 

1 

10 

10 

2 

5 

11 

1 

8 

90 

4 

FIGURE  4A.  Example  of  Linear  Terrain  Map  Legend 
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Traverses: 


The  AMC  '71  Mobility  Model  may  be  run  without  submodel 
ROUTE-  In  this  case,  one  calculates  the  times-intervals 
needed  to  cross  consecutive  terrain  units  along  a  path  con¬ 
sisting  of  a  continuous  sequence  of  straight  line  segments. 
The  additional  input  data  necessary  to  calculate  the  total 
time  and  the  average  speed  associated  with  the  preselected 
path  consist  of  pairs  of  numbers  representing  the  terrain 
unit  code  number  and  the  length  of  the  path  segment  in  the 
terrain  unit. 

These  data  can  form  the  basis  for  computing  a  great 
variety  of  significant  output  data.  For  example,  one  can 
calculate  the  average  speed  along  a  path  and  then  the  aver¬ 
age  speed  obtained  when  the  worst  5%,  10%,  15%,  etc.,  of 
the  terrain  units  are  removed  from  consideration.  This  way 
one  can  reflect  the  fact  that  a  driver  would  avoid  the  most 
difficult  terrain  units.  To  cite  another  example,  one  can 
show  the  percent  of  terrain  units  that  each  vehicle  must 
avoid  in  order  to  attain  a  given  average  speed. 

In  its  original  form,  however,  the  AMC  '71  Model  was 
only  geared  to  find  the  best  route  and  the  speed  made  good 
across  a  large  area. 

The  details  for  the  necessary  data  preparation  are 
spelled  out  below: 

a.  The  terrain  strip  is  divided  into  sections. 
Evenly  spaced  points  are  placed  on  each  boundary 
between  sections,  as  shown  in  Figure  A5a.  (The 
number  of  points  is  five  in  this  example.) 

b.  Each  point  is  connected  to  all  points  on  the 
opposite  boundary  of  the  section  (to  form  25- 
path  segments).  (Figure  A5b.) 

c.  For  each  path  segment,  the  distance  in  feet 
through  every  areal  terrain  unit  encountered 
is  measured. 


A- 7 


d.  Data  are  then  prepared  for  the  computer,  for 
each  path-segment  in  each  section,  in  the  form 
illustrated  below  for  Section  1,  path-segment 
4-3,  presented  in  Figure  A5c.  (This  information 
is  contained  in  the  "line  number".) 


No.  of 

Terrain 

Line 

Terrain  Units 

Unit 

Distance 

No. 

Crossed 

No. 

Ft. 

01430 

7 

219 

510 

10 

240 

55 

390 

10 

230 

47 

140 

91 

198 

1061 

1820 

e.  For  each  path-segment, 
encountered  are  noted 
puter  in  the  following 

the  linear 
and  prepared 
form: 

features 
for  the  com' 

Line 

No. 

No.  of 

Terrain  Units 

Crossed 

Terrain 

Unit 

No. 

Terrain 

Unit 

No. 

01430 

2 

7 

19 
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Section  1 
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Section  i 


Path  Segment 
1,4,3 


Section  1 


Linear 
Terrain  Unit  4 


9  (Fictitious  data  - 
for  illustration 
only) 
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Areal  /  47 

Terrain  Unit  /  s 


FIG  A5„  Method  of  Preparing  Traverse  Data 
for  AMC  Mobility  Model. 


Puerto  Rico  Terrain  Data 


The  terrain  selected  as  representative  of  Puerto  Rico 
was  a  "traverse  strip"  (defined  as  a  band  or  zone  of  a 
country  3  to  4  km  wide  and  about  40  km  long,  not  necessarily 
straight) .  The  location  of  the  traverse  strip  in  Puerto 
Rico  is  shown  in  Figure  A6.  The  areal  terrain  map  for 
Puerto  Rico  is  presented  as  plate  1,  located  at  the  end  of 
the  report,  and  a  representative  sample  of  the  map  legend 
is  given  in  Table  A2. 

The  terrain  data  for  all  areal  terrains  were  mapped  as 
previously  discussed.  Lakes  or  marshes  were  mapped  as  areal 
features,  and  water  depth  was  added  as  a  terrain  factor  to 
the  group  of  factors  shown  in  Table  A3.  Soil  strength 
classes  were  mapped  as  the  same  class  for  all  seasons  for 
marshes  and  lakes . 

The  linear  terrain  map  for  Puerto  Rico  is  presented  in 
plate  2,  and  the  map  legend  is  given  in  Table  A4.  Stream 
gradient  and  roughness  coefficient  were  added  to  the  terrain 
factor  complex  number,  but  are  not  used  by  the  AMC  Mobility 
Model . 
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TABLE  Al 


TERRAIN  DESCRIPTION 


The  terms  and  values  used  in  describing  terrains  for  the  AMC 
'71  Model  are  given  in  this  table. 

Terms  Used  to  Describe  Terrain  Data 


The  definitions  of  the  important  terms  used  in  describing 
terrain  data  are  as  follows: 

A.  General  Terrain  Terms: 

1.  Areal  terrains  -  Terrains  that  can  be  delineated 
on  a  terrain  map  as  a  patch  with  both  length  and 
width.  For  example,  a  forest  is  an  areal  terrain. 

2.  Linear  terrains  -  Terrains  that  appear  on  a 
terrain  map  as  lines  due  to  their  extensive  length 
and  narrow  width.  For  example,  a  river,  highway 
embankment,  etc.,  are  linear  features. 

3.  Terrain  country  -  A  terrain  country  is  an 
imaginary  or  geographic  area  containing  two  or 
more  terrain  units. 

4.  Terrain  unit  -  A  terrain  unit  is  a  patch  (areal 
or  linear)  of  terrain  described  by  a  specific 
terrain  unit  number. 

5.  Terrain  factor  complex  number  -  A  terrain  factor 
complex  number  is  a  combination  of  two  or  more 
terrain  factor  class  numbers  chosen  for  a  speci¬ 
fic  purpose. 

6.  Terrain  factor  class  number  -  A  terrain  factor 
class  number  is  a  number  assigned  to  a  terrain 
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TABLE  A1  (cont'd) 


factor  class  range.  For  mobility  purposes,  the 
terrain  factor  class  numbers  were  assigned  in 
order  of  increasing  severity  of  effect  on  vehicle 
performance. 

7.  Terrain  factor  class  (class  range)  -  A  specific 
range  of  factor  values  established  for  a  specific 
purpose.  For  example,  a  range  of  slope  from  0 

to  1.5  deg. 

8.  Terrain  factor  value  (value)  -  A  terrain  factor 
value  is  a  specific  occurrence  of  a  terrain 
factor.  For  example,  1.5  deg  is  a  factor  value 
of  the  terrain  factor,  slope. 

9.  Terrain  factor  -  A  terrain  factor  is  any  attribute 
of  the  terrain  that  can  adequately  be  described 

at  any  point  (or  instant  of  time)  by  a  single 
measurable  value;  for  example,  slope  and  plant 
stem  diameter. 

10.  Terrain  factor  family  -  A  terrain  factor  family 
is  two  or  more  terrain  factors  grouped  together. 
The  terrain  factor  families  used  to  describe 
terrains  are:  surface  composition,  surface 
geometry,  vegetation  and  hydrologic  geometry. 

B.  Surface  Composition  Terms: 

1.  Fine-grained  soil  -  A  soil  of  which  more  than  50 
percent  of  the  grains,  by  weight,  will  pass  a 
No.  200  U.S.  standard  sieve  (smaller  than  0.074 
mm  in  diameter)  . 

2.  Coarse-grained  soil  -  A  soil  of  which  more  than 
50  percent  of  the  grains,  by  weight,  will  be 
retained  on  a  No.  200  sieve  (larger  than  0.074 
mm  in  diameter) . 
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TABLE  Al  (cont'd) 


3.  Organic  soils  (muskeg)  -  A  terrain  surface  com¬ 
posed  of  a  living  organic  mat  of  mosses,  sedges 
and/or  grasses  with  or  without  tree  or  shrub 
growth.  Underneath  the  surface  there  is  a  mix¬ 
ture  of  partially  decomposed  and  disintegrated 
organic  material,  commonly  known  as  "peat"  or 
"muck". 

4.  Cone  index  (Cl)  -  An  index  of  shearing  resistance 
of  soil  obtained  with  the  cone  penetrometer. 

The  value  represents  the  resistance  of  the  soil 
to  penetration  of  a  30-degree  cone  of  0.5  sg-in 
base  or  projected  area. 

5.  Rating  cone  index  (RCI)  -  Product  of  Cl  and 
remolding  index  (RI) .  RI  is  the  ratio  of  remolded 
soil  strength  to  original  strength.  RCI  expresses 
the  soil  strength  rating  of  a  soil  subjected  to 
vehicular  traffic. 

C.  Surface  Geometry  Terms: 

1.  Slope  (slope)  -  The  angular  deviation  of  a  sur¬ 
face  from  the  horizontal,  measured  perpendicular 
to  the  topographic  contours  (see  sketch) . 

2.  Obstacle  approach  angles  (A)  -  The  angle  formed 
by  the  inclines  at  the  base  of  a  positive  or  top 
of  a  negative  vertical  obstacle  that  a  vehicle 
must  sense  in  surmounting  the  obstacle  (see  sketch) . 

3.  Obstacle  base  width  (WB)  -  The  distance  across 
the  bottom  of  the  obstacle  (centimeters) . 

4.  Obstacle  spacing  (OBS)  -  The  horizontal  distance 
between  contact  edges  of  vertical  obstacles  (see 
sketch) . 
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TABLE  A1  (cont'd) 


5.  Obstacle  Vertical  Magnitude  (H)  -  The  vertical 
distance  from  the  base  of  a  vertical  obstacle 
to  the  crest  of  the  obstacle  (centimeters) . 

6-  Obstacle  Length  (OBL)  -  The  length  of  the  long 
axis  of  the  obstacle,  measured  perpendicularly 
to  the  plane  of  the  paper  (dimension:meter) . 


D.  Vegetation  Terms: 

1-  Stem  Diameter  -  The  diameter  of  the  tree  stems 
breast  height  or  at  4  feet  above  the  ground. 
This  value  is  introduced  to  the  model  in  centi¬ 
meters  . 

2*  Stem  Spacing  -  The  average  distance  (meters) 

between  tree  stems.  This  value  is  computed  from 
the  number  of  stems  per  unit  area,  assuming  that 
the  stems  are  arranged  in  a  hexagonal  pattern. 
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TABLE  A1  (cont’d) 


3.  Recognition  Distance  -  The  distance  a  vehicle 
driver  can  see  and  recognize  objects  that  may 
be  hazardous  to  his  vehicle  or  himself  in  meters. 

E .  Hydrologic  Geometry  Terms: 

1.  Differential  Bank  Height  (BD)  -  The  difference 
in  elevation  of  the  two  banks  in  meters  (see 
sketch) . 

2.  Gap  Side  Slope  (THI,  RBA)  -  The  angle  formed  by 
the  bounding  incline  at  the  top  of  the  hydrologic 
feature.  The  angle  is  measured  with  respect  to 
the  horizontal  (see  sketch) . 

3.  Water  Depth  (WD)  -  Maximum  depth  of  water  in 
channel  in  centimeters  (see  sketch) . 

4.  Water  Width  (RW)  -  The  width  of  the  stream  in 
meters  at  water  level  (see  sketch) . 

5.  Water  Velocity  (WS)  -  The  maximum  velocity  of 
water  in  a  channel  (meter/second) . 


North  or  West  South  or  East 
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TABLE  A1  (cont'd) 


Numerical  Values  for  Describing  Terrain  Units 


The  terrain  factor  values,  terrain  factor  class  ranges  and 
terrain  factor  class  numbers  used  to  describe  a  terrain  unit 
are  as  follows: 

A.  Surface  Composition:  Surface  composition  is  des¬ 
cribed  in  terms  of  type  of  surface  material  and  the  strength 
of  the  surface  material. 


1.  Surface  Type  -  The  surface  types  of  material  are 


Code  No. 


Material  Type 


1 

2 

3 


Fine-grained  soil 
Coarse-grained  soil 
Organic  soil 


2.  Soil  Strength  -  Soil  strength  is  described  in 
terms  of  cone  index  (Cl)  or  rating  cone  index  (RCI)  of  the 
0-  to  6-in.  layer.  RCI  is  used  to  describe  the  strength  of 
type  1  and  type  3  materials.  The  classes  and  values  used  to 
describe  soil  strength  are: 


Class  Class  Value  Selected  for 

No.  Range  _ Prediction _ 


1 

>  280 

300 

2 

221-280 

250 

3 

161-220 

190 

4 

101-160 

130 

5 

61-100 

80 

6 

41-60 

50 
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TABLE  A1  (cont'd) 


Class 

Class 

Value  Selected 

No. 

Ranqe 

Prediction 

7 

33-40 

36 

8 

26-32 

29 

9 

17-24 

20 

10 

11-16 

14 

11 

0-10 

5 

The  preceding  class  numbers  of  soil  strength  are  normally- 
used  to  describe  the  soil  strength  for  a  terrain  unit  during 
the  dry,  the  wet,  or  the  average  season.  However,  a  differ¬ 
ent  class  number  may  be  required  to  describe  the  soil  strength 
during  different  seasons.  For  example,  for  a  given  terrain 
unit,  fine-grained  soils.  Class  No.  6,  may  be  required  to 
describe  the  wet  season  strength  and  Class  No.  2,  the  dry 
season  strength. 

B.  Surface  Geometry:  Surface  geometry  is  subdivided 
into  macrogeometry  and  microgeometry.  Macrogeometry  is  des¬ 
cribed  by  slope  angle  and  is  usually  considered  as  a  slope 
length  that  is  greater  than  the  vehicle  length.  Terrain 
factors  used  to  describe  surface  features  identified  as 
microgeometry  are  separated  into  two  categories.  One  cate¬ 
gory  includes  those  surface  features  such  as  boulders,  stumps, 
logs,  dikes,  potholes,  etc.,  that  a  vehicle  will  override 
slowly  or  circumvent,  and  the  other  category  includes  surface 
irregularities  that  are  overridden  and  that  excite  the 
vehicle  in  the  vertical  direction.  The  latter  category  is 
pertinent  to  the  ride  problem.  Terrain  features  in  category 
1  are  described  in  terms  of  approach  and  departure  angle, 
vertical  magnitude,  base  width,  length,  spacing  and  spacing 
type.  Surface  features  in  category  2  are  described  as  a 
continuous  profile  (approximately  500  feet  long)  in  sufficient 
detail  for  a  valid  power  spectral  density  to  be  obtained. 
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TABLE  A1  (cont'd) 


1.  Mac roqeometry  -  The'  classes  and  values  used  to 
describe  slope  (macrogeometry)  are: 

Value  Selected  for 


Class  No. 

Class  Range  % 

Prediction  % 

1 

0-2 

1 

2 

2.1-5 

3.5 

3 

5.1-10 

7.5 

4 

10.1-20 

15.0 

5 

20.1-40 

30.0 

6 

40.1-60 

50.0 

7 

60.1-70 

65.0 

8 

>  70 

72.0 

2.  Microgeometry  (Category  1)  -  The  classes  and 
values  used  to  describe  obstacle  approach  and  departure  angle, 
obstacle  vertical  magnitude,  obstacle  base  width,  obstacle 
length,  obstacle  spacing  and  obstacle  spacing  type  are: 


Obstacle  Approach  and  Departure  Angle 


Class  No, 


Class  Range  Dec 


Value  Selected  for 
Prediction,  deg 


1 

178.6-180 

179 

2 

180.0-181.5 

181 

3 

175.6-178.5 

177 

4 

181.5-184.5 

183 

5 

170.1-175.5 

173 

6 

184.5-190 

187 

7 

158.1-170 

164 

8 

190.1-202 

196 

9 

149.1-158 

154 

10 

202.1-211 

206 

11 

135.1-149 

142 

12 

211.1-225 

218 

13 

90.0-135 

112 

14 

>225 

225 
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TABLE  Al  (cont'd) 


b.  Obstacle  Vertical  Magnitude 


Class 

Class  Range 

Value  Selected  for 

No. 

cm 

Prediction,  cm 

1 

0-15 

8 

2 

16-25 

20 

3 

26-35 

30 

4 

36-45 

40 

5 

46-60 

53 

6 

60-85 

72 

7 

>85 

85 

c.  Obstacle  Base  Width 

Class 

Class  Range 

Value  Selected  for 

No. 

cm 

Prediction,  cm 

1 

>120 

120 

2 

91-120 

106 

3 

61-90 

76 

4 

31-60 

46 

5 

0-30 

15 

d.  Obstacle  Length 

Class 

Class  Range 

Value  Selected  for 

NO. 

m 

Prediction,  m 

1 

0-0.3 

0.2 

2 

0. 4-1.0 

0.7 

3 

1. 1-2.0 

1.6 

4 

2. 1-3.0 

2.6 

5 

3. 1-6.0 

4.6 

6 

6.1-150 

78.0 

7 

>  150 

150.0 
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TABLE  A1  (cont'd) 


Class  Class  Range 

No.  _ m _ 


Value  Selected  for 


Prediction. 


1 

Bare 

60.0 

2 

20.1-60 

40.0 

3 

11.1-20 

15.6 

4 

8.1-11 

9.6 

5 

5.6-8 

.  6.8 

6 

4. 1-5. 5 

4.8 

7 

2. 6-4.0 

3.3 

8 

0-2.5 

1.2 

Obstacle  Spacinc 


Code  No. 


Description 


2  Linear 

1  Random 


3.  Microgeometry  (Category  2)  -  The  data  required 
for  category  2  microgeometry  is  a  terrain  profile  in  suffi¬ 
cient  detail  for  valid  power  spectral  density  to  be  obtained. 
An  example  of  this  terrain  description  is  as  follows: 

Surface  Roughness  RMS  Value  Selected  for 

Profile  Class  Range  _ Prediction _ 


1 

2 

3 

4 

5 

6 


0-0.5  0.25 

0.6-1. 5  1 

1.6- 2. 5  2 

2. 6- 3. 5  3 

3. 6- 4. 5  4 

4. 6- 5. 5  5 
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TABLE  A1  (cont'd) 


Surface  Roughness 

RMS 

Value  Selected  for 

Profile  Class 

Range 

Prediction 

7 

5. 6-6. 5 

6 

8 

6. 6-7. 5 

7 

9 

>7.5 

8 

C.  Vegetation:  Vegetation  is  described  in  terms  of 

stem  diameter  and  stem  spacing.  For 

convenience,  visibility 

is  also  included  as  a  part 

of  the  vegetation  factor  family 

since  it  is  often  closely 

related.  Those  stems  that  can  be 

overridden  by  a  vehicle  are  identified  as  longitudinal 

obstacles  and  those  that  must  be  avoided  by  a  vehicle  are 

identified  as  lateral  obstacles.  The 

>  classes  and  values 

used  to  describe  stem  diameter,  stem 

spacing  and  visibility 

are  as  follows: 

1.  Stem  Diameter 

Class  No. 

Value, 

Cm 

1 

>  0 

2 

>2.5 

3 

>6.0 

4 

>  10.0 

5 

>14.0 

6 

>18.0 

7 

>22.0 

8 

>25.0 

2.  Stem  Spacing 

Class  Range  Value  Selected  for 

Class  No. 

m 

Prediction,  m 

1 

Bare 

100.0 

2 

>  20 

20.0 

3 

11.1-20 

15.5 
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TABLE  A1  (cont'd) 


Class  Range 

Value  Selected  for 

Class  No. 

m 

Prediction,  m 

4 

8.1-11 

9.5 

5 

5.6-8 

6.8 

6 

4. 1-5. 5 

4.8 

7 

2.6-4 

3.3 

8 

0-2.5 

1.2 

Visibility 

or  Recognition 

Distance  Classes  at  1.5 

Feet  Above 

Ground 

Class  Range 

Value  Selected  for 

Class  No. 

m 

Prediction,  m 

1 

>50 

50.0 

2 

24.1-50 

37.0 

3 

12.1-24 

18.0 

4 

9.1-12 

10.6 

5 

6. 1-9.0 

7.5 

6 

4. 6-6.0 

5.3 

7 

3. 1-4.5 

3.8 

8 

1. 6-3.0 

2.3 

9 

0-1.5 

0.8 

NOTE:  The  surface  code  number  and  obstacle  spacing  code 

number  are  used  in  the  same  manner  as  terrain  factor 
class  numbers  to  form  the  terrain  factor  complex  number. 

D.  Hydrologic  geometry  factors  are  primarily  used  to 
describe  linear  features  that  transport  water.  One  hydrologic 
geometry  factor,  water  depth,  is  also  used  as  a  part  of  the 
description  of  areal  bodies  of  water  such  as  lakes,  marshes, 
or  swamps.  Other  hydrologic  geometry  factors  are  differen¬ 
tial  bank  height,  gap  side  slope,  water  width  and  water 
velocity.  The  classes  and  values  used  to  describe  each  of 
these  factors  are  as  follows: 
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TABLE  A1  (cont'd) 


Class 

No. 

1.  Differential  Bank  Height 

Class  Ranqe 

Value  Selected 
Prediction, 

for 

m 

1 

0 

0 

2 

N/W  bank  (0.1-1)  higher  than  S/E 

0.5 

3 

N/W  bank  (1.1-2)  higher  than  S/E 

1.5 

4 

N/W  bank  (2.1-4)  higher  than  S/E 

3.0 

5 

N/W  bank  (>4) 

4.0 

6 

S/E  bank  (0.1-1)  higher  than  N/W 

0.5 

7 

S/E  bank  (1.1-2)  higher  than  N/W 

1.5 

8 

S/E  bank  (2.1-4)  higher  than  N/W 

3.0 

9 

S/E  bank  (>4)  higher  than  N/W 

2.  Gap  Side  Slope 

4.0 

Class 

Value  Selected 

for 

No. 

Class  Range,  deg 

Prediction, 

deg 

1 

180-185 

182.5 

2 

185.1-190 

187.5 

3 

190.1-200 

195.0 

4 

200.1-210 

205.0 

5 

210.1-220 

215.0 

6 

220.1-230 

225.0 

7 

230.1-250 

240.0 

8 

250.1-260 

255.0 

9 

260.1-265 

262.5 

10 

265.1-270 

3 .  Water  Depth 

267.5 

Class 

Value  Selected 

.  for 

No. 

Class  Range,  cm 

Prediction, 

cm 

1 

0-100 

50 

2 

101-200 

150 

3 

201-500 

350 

4 

>  500 

500 
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TABLE  Al  (cont'd) 


4.  Water  Velocity 


Class  Value  Selected  for 

No.  Class  Range,  mps  Prediction,  mps 


1 

No  water 

2 

0 

3 

0-1 

4 

1.1-2 

5 

2 . 1-3 . 5 

6 

>3.5 

5.  Water  Width 

Class 

Value  Selected 

Class 

Range 

for  Prediction 

No. 

m 

in 

1 

No  water 

0 

2 

0.1-3 

1.5 

3 

3.1-6 

4.5 

4 

6.1-9 

7.5 

5 

9.1-12 

10.5 

6 

12.1-15 

13.5 

7 

15.1-18 

16.5 

8 

18.1-21 

19.5 

9 

21.5-24 

22.5 

10 

24.1-27 

25.5 

11 

27.1-30 

28.5 

12 

30.1-35 

32.5 

13 

35.1-40 

37.5 

14 

40.1-45 

42.5 

15 

45.1-50 

47.5 

16 

50.1-55 

52.5 

17 

55.1-60 

57.5 

18 

60.1-65 

62.5 

NA 

0 

0.5 

1.5 

2.8 

3.5 


Class 

No. 

Class 

Range 

m 

Value  Selected 
for  Prediction 

m 

46 

200.1-205 

202.5 

47 

205.1-210 

207.5 

48 

210.1-215 

212.5 

49 

215.1-220 

217.5 

50 

220.1-225 

222.5 

51 

225.1-230 

227.5 

52 

230.1-235 

232.5 

53 

235.1-240 

237.5 

54 

240.1-245 

242.5 

55 

245.1-250 

247.5 

56 

250.1-255 

252.5 

57 

255.1-260 

257.5 

58 

260.1-265 

262.5 

59 

265.1-270 

267.5 

60 

270.1-275 

272.5 

61 

275.1-280 

277.5 

62 

280.1-285 

282.5 

63 

285.1-290 

287.5 
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TABLE  Al  (cont'd) 


Class 

Class 

Range 

No. 

m 

19  65.1-70 

20  70.1-75 

21  75.1-80 

22  80.1-85 

23  85.1-90 

24  90.1-95 

25  95.1-100 

26  100.1-105 

27  105.1-110 

28  110.1-115 

29  115.1-120 

30  120.1-125 

31  125.1-130 

32  130.1-135 

33  135.1-140 

34  140.1-145 

35  145.1-150 

36  150.1-155 

37  155.1-160 

38  160.1-165 

39  165.1-170 

40  170.1-175 

41  175.1-180 

42  180.1-185 

43  185.1-190 

44  190.1-195 

45  195.1-200 


Value  Selected 
for  Prediction 
m 


67.5 

72.5 

77.5 

82.5 

87.5 

92.5 

97.5 

102.5 

107.5 

112.5 

117.5 

122.5 

127.5 

132.5 

137.5 

142.5 

147.5 

152.5 

157.5 

162.5 

167.5 

172.5 

177.5 

182.5 

187.5 

192.5 

197.5 


Class 

Class 

Range 

No. 

m 

64  290.1-295 


65 

295.1-300 

66 

300.1-305 

67 

305.1-310 

68 

310.1-315 

69 

315.1-320 

70 

320.1-325 

71 

325.1-330 

72 

330.1-335 

73 

335.1-340 

74 

340.1-345 

75 

345.1-350 

76 

350.1-355 

77 

355.1-360 

78 

360.1-365 

79 

365.1-370 

80 

370.1-375 

81 

375.1-380 

82 

380.1-385 

83 

385.1-390 

84 

390.1-395 

85 

395.1-400 

86 

400.1-405 

87 

405.1-410 

88 

410.1-415 

89 

415.1-420 

90 

420.1-425 

Value  Selected 
for  Prediction 
m 


292.5 

297.5 

302.5 

307.5 

312.5 

317.5 

322.5 

327.5 

332.5 

337.5 

342.5 

347.5 

352.5 

357.5 

362.5 

367.5 

372.5 

377.5 

382.5 

387.5 

392.5 

397.5 

402.5 

407.5 

412.5 

417.5 

422.5 
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TABLE  A 2 


AREAL  TERRAIN  UNITS 


There  are  1061  different  terrain  units  in  the  Puerto 
transect.  A  table  depicting  1061  sets  of  terrain 
class  numbers  is  too  voluminous  for  complete  reproduction 

Therefore,  only  a  sample  is  given  in  the  following: 


««<«««««  McTOR  COMPLEX  »»»»»»»> 

~  S 

_ <  OBSTACLE  >  U _ 

«  SOU,  »  R 

_ A_Y _ £ _ 

A  PE  A 

S  D  V  H  PR _ 5 _ R 

U  R  G  E  T  R  .  E  E 

R  Y  |  TOO  _ 8 _  «  SPACING  Of  >  C 

f  PAHA  R  STEMS  EGYAir  0 

ASSSOCAS _ 0  TO  OR  GREATER  0 

CTTT.HQE  S  U  THAN  GIVEN  , 

ERRR  NLP  G  DlAHETERi 

E  EES  A  I,W  E  A  H  CENTIMETERS  0 

_ T  _N_  N  N  L  N  T  I  NCTN  I  !  !  Ill  II  I 

Y  G  G  GO  GUDGIYE  2  S 

MAP  P  T  t  TP  LDTTNPS  «  11  1  2  2  T 

PIT  E  H  y  H  E  E  EHHBiS0$M4BH 


XT 

2JL 


X  i 

<1 

Tt 


5.1 

3.1 


1,1,1, 1,9, 2, 2,2, 2, 2*2,2, 2 


3,1 

3|1 


y,i 

3,1 


l»i»l*3»8»3»3#3»2,2*2»2*2 
1,1, 1*2, 8, 4, 3, 3, 3, 3*3, 3*2 
1,1, 1,3, I , $,3,3, 3, 3, 3, 3, 2 
1*1> 1*3, 9,5, 4, 4, 3, 3 A3, 3, 2 


Tt 

^1 

1U 


3.1 

5.1 


5 ,1 

5ii 


5 


l»l»i»3»8»6,2*2»2»2»2,2»2 

1,1, 1,1, 9, jf 4, 4, 2, 2, 2, 2,2 


1 ,1,1,2, ®, 5, 4, 4,4, 3, 3, 3,2 
1,1,1,3,8,7,3,2,2,212,2,2 


Jn 

5,1 


1,1, 1,3,8, 7, 4, 4, 2, 2, 2,2*2 
1,1, 1,2, 8, 7, 5,4,2, 2>2, 2»4 


11  1 
12  1 


13  t 

14  i 


J*1 

5,4 


in 


1»1» 1*1' 8 ,7,5,5, 2,2*2, 2*6 
1  ,1 ,1  ,1 ,8,8,9. 9.?, 2*2, 2*2 


APPENDIX  B 


VEHICLE  CHARACTERISTICS 


Appendix  B  presents  the  vehicle  characteristics  and 
other  related  data  required  for  the  AMC  '71  Vehicle  Mobility 
Model . 

A  number  and  a  computer  symbol  were  assigned  to  each 
characteristic,  which  may  be  grouped  into  four  categories: 

a.  General  characteristics 

b.  Dynamic  characteristics 

c.  Power  train  characteristics 

d.  Geometric  characteristics 

Most  of  the  data  required  for  groups  a  and  d  are  listed 
(for  military  vehicles)  in  military  standard  characteristics 
or  vehicle  data  sheets,  published  by  the  U.S.  Army  Tank- 
Automotive  Command.  Some  of  the  data  listed  in  group  c  are 
also  shown  on  data  sheets,  but  net  engine  torque,  transmission 
characteristic  curves,  power  train  losses  and  other  similar 
descriptors  are  only  available  at  TACOM's  Propulsion  Systems 
Division,  or  must  be  obtained  from  manufacturers.  The 
dynamic  characteristics  (group  b)  are  not  readily  available; 
their  establishment  requires  special  tests  or  laborious 
calculations . 

Table  Bl  contains  the  identification  of  the  characteris¬ 
tics  with  the  corresponding  numbers,  computer  symbols  and 
dimensions  used  in  this  study.  Table  B2  lists  the  numerical 
values  of  the  characteristics  for  the  four  vehicles  simulated 
in  the  initial  application  of  the  AMC  '71  Mobility  Model  (M60, 
M113,  M35  and  M151) .  These  values  are  referenced  by  number 
to  Table  Bl. 
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TABLE  Bl 


VEHICLE  CHARACTERISTICS  NECESSARY  FOR  THE  AMC  'll  MOBILITY  MODEL 


Characteristics 
_ No. _ 


Identification 


Computer 

Dimensions  Symbol 


General  Characteristics 


1  Vehicle  type  (NVEH  =  0  for  tracked) ; 

(NVEH  =  1  for  4x4,  2  for  6x6,  3  for 


8x8) 

NVEH 

2 

Gross  vehicle  weight 

lb 

GVW 

3 

Track  type  (NFL  =  0  for  nonflexible; 

NFL  =  1  for  flexible) 

NFL 

4 

Grouser  height  for  tracks;  number  of 
tires  for  wheeled 

in 

GT 

5 

Tire  ply  rating 

TPLY 

6 

Maximum  force  the  pushbar  can  withstand 
on  the  vehicle's  leading  edge 

lb 

PBF 

7 

Vehicle  swimming  speed 

mph 

VSS 

8 

Vehicle  fording  speed 

mph 

VFS 

9 

Maximum  braking  force  the  vehicle  can 
develop  on  hard  pavement 

lb 

XBR 

10 

Auxiliary  water  propulsion  factor  (no 
auxiliary  propulsion  system  =  .5;  and 
propulsion  system  on  vehicle  =  .8) 

AWPKF 

11 

Vehicle  rated  horsepower  per  ton  (net) 

HPT 

12 

Number  of  people  in  the  vehicle  on  a 
normal  mission 

NCREW 
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TABLE  Bl  (cont'd) 


Characteristics 
No. _ 


Identification 


Dimensions 


13 

Vehicle  winch  capacity 

lb 

14 

Transmission  variety  (hydraulic  =  0; 
mechanical  =1) 

15 

16 


17 

18 


Input  Data  Produced  By 
Vehicle  Ride  Dynamics  Subprogram 

Number  of  point  pairs  in  array  VOOB 
(in  curve) 

Array  containing  vehicle  velocity  vs 
obstacle  height  at  2.5  g  vertical 
acceleration 

Number  of  points  in  array  VRIDE 

Limited  speed  due  to  vibration  at  the 
driver's  seat  for  surface  roughness 
Class  I 


Geometric  Characteristics 


19 

Vehicle  width 

in 

20 

Vehicle  length 

in 

21 

Vehicle  ground  clearance  at  the  center 
of  the  greatest  wheel  span 

in 

22 

Rear  end  clearance  (vertical  clearance  of 
vehicle's  trailing  edge) 

in 

23 

Vehicle  departure  angle 

deg 
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Computer 

Symbol 

WC 

ITVAR 

NC4 

VOOB (I , J) 
NC5 

VRIDE  (I) 

W 

VL 

GC 

REC 

VDA 


TABLE  Bl  (cont'd) 


Characteristics  Computer 

_ No. _ Identification _ Dimensions _ Symbol 

24  Vertical  clearance  of  vehicle's 


leading  edge 

in. 

FEC 

25 

Vehicle  approach  angle  (AV  in  FIVEYP) ; 
(VAA  in  OBSTCL,  INPUT) 

deg. 

AAV 

26 

Track  width  or  wheel  width 

in. 

WID 

27 

Length  of  track  on  ground  or  wheel 
diameter 

in. 

DL 

28 

Wheel  rim  diameter 

in. 

RDIAM 

29 

Loaded  wheel  radius 

in. 

RW 

30 

Tire  pressure 

psi 

TPS  I 

31 

Ground  contact  area 

.  2 
m . 

GCA 

32 

Height  of  vehicle  pushbar  or  leading 
edge 

in. 

PBHT 

33 

Area  of  one  track  shoe  (tracked)  or 
number  of  axles  (wheeled) 

in.  2 

A 

34 

Number  of  bogies  (tracked)  or  chain 
indicator  (wheeled);  (0  =  no  chains; 

1  =  chains) 

NBC 

35 

Distance  between  the  first  and  last 
wheel  centerlines 

in. 

XLT 

36 

Horizontal  distance  from  the  C.G.  to 
the  front  wheel  centerline 

in. 

CGF 

37 

Vertical  distance  from  the  C.G.  to 
the  road  wheel  centerline 

in. 

CGH 
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TABLE  Bl  (cont'd) 


Characteristics  Computer 

_ No. _ Identification _ Dimens  ions _ Symbol 


38 

Maximum  span  between  adjacent  wheel 
centerlines  (  DWX  in  FIVEYP,  RIVER) 

in. 

GWS 

39 

Angle  between  a  line  parallel  to  the 
ground  surface  and  the  line  connecting 
the  C.G.  and  the  center  of  the  rear 
wheel  (road  wheel  or  idler) .  The 
wheel  is  used  to  determine  departure 
angle 

deg. 

ACG 

40 

Distance  from  the  C.G.  to  the  center  of 
the  rear  wheel  (road  wheel  or  idler) . 

The  wheel  is  the  one  used  to  determine 
departure  angle  (in.) 

in. 

DCG 

41 

Vertical  distance  from  the  ground  to 
the  center  of  the  rear  wheel  (road  wheel 
or  idler) .  The  wheel  is  the  one  used  to 
determine  departure  angle  (wheeled  =  RW) 

in. 

HC 

42 

Track  thickness  plus  the  radius  of  the 
rear  wheel  (road  wheel  or  idler) .  The 
wheel  is  the  one  used  to  determine 
departure  angle  (wheeled  =  RW) 

in. 

RWW 

43 

Maximum  vertical  step  the  vehicle  can 
climb 

in. 

HS 

44 

Ingress  swamp  angle  of  the  vehicle 
(  THD  in  DIG) 

deg. 

SAI 

45 

Fording  depth  or  draft  height 

in. 

FD 

46 

Rolling  radius  of  tire  or  sprocket 
pitch  radius 

in. 

RR 
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TABLE  Bl  (cont'd) 


Characteristics 
No. _ 


Identification 


Dimensions 


Power  Train  Characteristics 


47  Transmission  type  (ITRAN  =  0  for  manual; 
ITRAN  =  1  for  automatic) 

48  Final  drive  gear  ratio 

49  Final  drive  gear  efficiency 

50  Number  of  gear  ratios  in  transmission 

51  Gear  ratio  of  Ith  gear 

52  Transmission  efficiency 


53  Gear  ratio  from  engine  to  torque 

converter 


54 


Denotes  presence  of  a  torque  converter 
lockup;  no  =  0;  yes  =  1 


55  Input  torque  at  which  the  torque 

converter  curves  were  measured  ft-lb 

56  Number  of  point  pairs  in  array  TNE1 

57  Array  containing  torque  converter  speed 
vs  converter  speed  ratio  curve 

58  Number  of  point  pairs  in  array  TTM 

59  Array  containing  torque  converter  torque 
multiplying  coefficient  vs  converter 
speed  ratio  curve 

60  Number  of  point  pairs  in  array  TTE 

61  Array  containing  net  engine  torque  vs 
engine  speed  curve 


Computer 

Symbol 


ITRAN 

FDR 

FDREF 

NG 

GR(I) 

EFF 

ENTCG 


LOKUP 

TC 

NCI 

TNE1(I, J) 
NC2 

TTM ( I , J ) 
NC3 


TTE  (I,  J) 


TABLE  Bl  (cont'd) 


Characteristics 
_ No. _ 


Identification 


Computer 

Dimensions  Symbol 


Characteristics  Required  for 

Vehicle  Ride  Dynamics  Subprogram* 

62 

Mass  of  main  frame 

2 

lb-sec  /in. 

FMASS 

63 

Mass  of  wheel  or  bogie  Assembly  I 

lb-sec  /in. 

MASS (I) 

64 

Pitch  moment  of  inertia 

lb-sec  /in. 

INRTIA 

65 

Horizontal  distance  from  C.G.  to  wheel 
or  bogie  Assembly  I 

in. 

LEN(I) 

66 

C.G.  to  driver  distance 

in. 

DRVLEN 

*For 

further 

details,  see  Appendix  C. 

• 

Initial  Displacements 

67 

Vertical  C.G. 

in. 

VAR  (1) 

68 

Pitch 

radian 

VAR  (2) 

69 

Axle  1 

in. 

VAR  (3) 

Axle  2 

in. 

VAR  (4) 

Axle  3 

in. 

VAR  (5) 

Axle  4 

in. 

VAR  (6) 

Axle  5 

in. 

VAR  (7) 

Axle  6 

in. 

VAR  (8) 

70 

Horizontal  C.G. 

in. 

VAR  (9) 

71 

Threshold  height  of  wheel  segment  I 

in. 

THRSH(I) 

72 

Segmented  wheel  spring  constant  for 
vertical  component  of  segment  I 
(KCOS0J ) 

lb/in 

GAMMA (I) 
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TABLE  B1  (cont'd) 


Characteristics 

No.  Identification 

Dimensions 

Computer 

Symbol 

73 

Segmented  wheel  spring  constant  for 
horizontal  component  of  segment  I 
(K  SIN0j) 

lb/ in. 

SIGMA (I) 

74 

Feeler  threshold  heights  (to  por¬ 
tray  leading  portion  of  track) 

in. 

TH  (I) 

75 

Track  tension  spring  constant 
(between  bogies) 

lb/in . 

76 

Track  tension  spring  constant 
(feelers  ahead  of  first  bogie) 

lb/in . 

TABLE  B2 


INPUT  PARAMETER  DATA  FOR  SIMULATED  VEHICLES 


Characteristic 


Vehicles 


No. 

M151 

M35A2  Mod 

M113A1 

M60A1 

General 

Characteristics 

1 

1. 

0 

2.0 

0.0 

0.0 

2 

3,180. 

0 

18,230 

23,410 

104,000 

3 

0. 

0 

0.0 

1.0 

1.0 

4 

4. 

0 

6.0 

1.0 

1.5 

5 

6. 

0 

12.0 

6 

3, 180. 

0 

18,230 

55,000 

500,000 

7 

0. 

0 

0.0 

3.5 

0.0 

8 

2. 

0 

2.0 

5.0 

2.0 

9 

2,560. 

0 

15,040 

19,120 

83,200 

10 

0. 

5 

0.5 

0.5 

0.5 

11 

46. 

2 

15.4 

17.9 

11.5 

12 

1. 

0 

2.0 

2.0 

4.0 

13 

0. 

0 

10,000 

0.0 

0.0 

14 

1. 

0 

1.0 

0.0 

0.0 

Characteristics  Produced  by  the 

Vehicle  Ride 

Dynamics 

Subproqram 

15 

26 

17 

8 

11 

16 

1.0 

50.0 

0.0 

50.0 

0.0  50.0 

0.0  60.0 

2.0 

16.6 

5.0 

50.0 

8.0  50.0 

9.0  60.0 

3.0 

10.0 

7.0 

35.0 

9.0  31.0 

10.0  12.2 

4.0 

7.1 

8.0 

26.8 

11.5  10.0 

11.0  6.9 

5.0 

5.5 

9.0 

21.2 

15.0  5.0 

12.0  6.0 

6.0 

4.5 

10.0 

16.7 

20.0  2.0 

13.0  5.6 

7.0 

3.8 

11.0 

15.8 

27.5  0.5 

14.0  5.4 

8.0 

3.3 

12.0 

10.5 

40.0  0.0 

15.0  5.3 

9.0 

2.9 

13.0 

7.8 

19.0  5.1 

10.0 

2.6 

14.0 

6.5 

29.0  4.9 

11.0 

2.3 

15.0 

5.0 

40.0  4.9 

12.0 

2.1 

16.0 

3.7 

13.0 

2.0 

17.0 

2.8 
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TABLE  B2  (cont'd) 


Characteristic  Vehicles 

No.  M151 _ M35A2  Mod _ M113A1 _  M60A1 


14.0 

1.8 

18.0 

2.1 

15.0 

1.7 

19.0 

1.5 

16.0 

1.6 

20.0 

1.2 

17.0 

1.5 

40.0 

1.0 

18.0 

1.4 

19.0 

1.3 

20.0 

1.2 

21.0 

1.2 

22.0 

1.1 

23.0 

1.1 

24.0 

1.0 

25.0 

1.0 

40.0 

1.0 

17 

9.0 

9.0 

9.0 

9.0 

18 

30.0 

40.0 

40.0 

30.0 

30.0 

25.0 

32.0 

30.0 

20.0 

19.0 

15.0 

30;  0 

13.5 

14.0 

7.0 

30.0 

10.0 

11.3 

4.9 

24.3 

7.5 

9.0 

3.7 

20.0 

6.3 

7.5 

3.1 

16.8 

5.5 

6.3 

3.0 

14.2 

5.0 

5.2 

3.0 

12.0 

Geometric 

Characteristics 

19 

62.25 

96.0 

105.0 

143.0 

20 

132.0 

280.6 

192.0 

273.0 

21 

11.4 

19.0 

16.0 

18.0 

22 

16.0 

33.5 

20.0 

40.0 

23 

37.0 

42.0 

40.0 

60.0 

24 

19.0 

36.5 

23.0 

45.0 

25 

66 . 0 

42.0 

70.0 

90.0 

26 

7.1 

11.5 

15.0 

28.0 

27 

30.8 

43.6 

105.0 

167.0 

28 

16.0 

20.0 
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TABLE  B2  (cont'd) 


Characteristic  Vehicles 


No. 

M151 

M35A2  Mod 

M113A1 

M60A1 

29 

14.5 

20.0 

12.0 

13.0 

30 

20.0 

35.0 

31 

116.0 

600.0 

3150.0 

9336 

32 

19.0 

39.0 

30.0 

45.0 

33 

2.0 

3.0 

90.0 

194.0 

34 

0.0 

0.0 

10.0 

12.0 

35 

85.0 

178.0 

105.0 

167.0 

36 

46.9 

109.0 

50.7 

77.76 

37 

11.1 

25.0 

27.5 

41.25 

38 

85.0 

130.0 

26.25 

33.0 

39 

16.25 

17.8 

15.5 

6.25 

40 

39.66 

80.5 

82.3 

119.5 

41 

14.5 

20.0 

17.0 

41.25 

42 

14.5 

20.0 

14.0 

17.0 

43 

14.5 

18.4 

24.0 

36.0 

44 

0.0 

0.0 

90.0 

90.0 

45 

60.0 

72.0 

75.0 

69.0 

46 

14.5 

20.0 

9.81 

12.25 

Power  Train 

Characteristics 

47 

0.0 

0.0 

1.0 

1.0 

48 

4.86 

6.27 

3.93 

5.08 

49 

0.90 

0.90 

0.95 

0.95 

50 

4.0 

10.0 

3.0 

2.0 

51 

5.172 

9.94 

3.81 

3.497 

3.179 

5.5 

1.936 

1.256 

1.674 

3.2 

1.0 

1.0 

1.98 

1.56 

5.02 

2.78 

1.62 

1.0 

0.79 


52 

0.90 

0.90 

0.95 

0.95 

53 

1.0 

0.862 

54 

1.0 

0.0 

55 

275 

900 
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TABLE  B2  (cont'd) 


Characteristics 

No. _ M151 


Vehicles 

M35A2  Mod _ M113A1 _ M60A1 


56 

57 


58 

59 


24.0 

12.0 

0.00 

2340 

0.0 

1875 

0.05 

2320 

0.1 

1850 

0.10 

2300 

0.2 

1825 

0.15 

2280 

0.3 

1815 

0.20 

2260 

0.4 

1830 

0.25 

2250 

0.5 

1895 

0.30 

2240 

0.6 

1970 

0.35 

2230 

0.7 

2030 

0.40 

2230 

0.8 

2130 

0.45 

2240 

0.85 

2210 

0.50 

2250 

0.90 

2500 

0.55 

2270 

1.0 

50000 

0.60 

2300 

0.65 

2340 

0.70 

2400 

0.75 

2490 

0.80 

2620 

0.85 

2840 

0.90 

3160 

0.91 

3280 

0.92 

3400 

0.93 

3600 

0.94 

4000 

1.00 

5000 

21.0 

12.0 

0.0 

3.31 

0.0 

3.66 

0.05 

3.16 

0.1 

3.125 

0.10 

2.99 

0.2 

2.65 

0.15 

2.80 

0.3 

2.28 

0.20 

2.58 

0.4 

1.95 

0.25 

2.38 

0.5 

1.67 

0.30 

2.19 

0.6 

1.42 

0.35 

2.02 

0.7 

1.22 

0.40 

1.87 

0.8 

1.05 

0.45 

1.73 

0.85 

0.98 

0.50 

1.60 

0.9 

0.97 

B-12 


TABLE  B2  (cont'd) 


Characteristics 

No.  M151 


Vehicles 


M35A2  Mod 


M113 


M60A1 


60 

61 


62 

63 


64 

65 


0.55 

1.49 

1.0 

0.97 

0.60 

1.38 

0.65 

1.28 

0.70 

1.18 

0.75 

1.07 

0.80 

0.98 

0.85 

0.98 

0.90 

0.98 

0.95 

0.97 

1.00 

0.97 

10. 

0 

9. 

,0 

12.0 

13.0 

800 

92 

1000 

2915 

600 

158.9 

1200 

1610 

1200 

95 

1200 

2985 

800 

309.4 

1300 

1645 

1600 

103 

1400 

297 

1000 

379.4 

1400 

1670 

2000 

104.3 

1600 

288.5 

1200 

410.3 

1500 

1682 

2400 

101.2 

1800 

283.5 

1400 

419.9 

1600 

1680 

2800 

96.7 

2000 

280 

1600 

417.0 

1700 

1675 

3200 

89.4 

2200 

268.5 

1800 

406.7 

1800 

1655 

3600 

83.0 

2400 

254 

2000 

391.7 

1900 

1630 

4000 

71.8 

2600 

238 

2200 

374.1 

2000 

1600 

4400 

60.0 

2400 

355.1 

2100 

1560 

2600 

335.6 

2200 

1515 

2800 

316.1 

2300 

1470 

2400 

1420 

2. 

58 

18.8 

27.7 

125.0 

0. 

27 

1 

..191 

1.29 

3.68 

0. 

27 

2.08 

1.29 

3.68 

2.05 

1.29 

3.68 

1.29 

3.68 

1.29 

3.68 

3.68 

3282 

.0 

90876.0 

68000.0 

581700.0 

44 

.3 

113.0 

50.7 

77.76 

40 

.7 

39.0 

24.4 

44.42 

24.0 

-1.8 

11.08 

-28.1 

-54.3 


-22.26 
-55 . 60 
-88.94 
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TABLE  B2  (cont'd) 


Characteristics 

Vehicles 

No. 

M151 

M35A2  Mod 

M113A1 

M60A1 

66 

0.0 

0.0 

40.0 

60.0 

67 

-4.303 

-2.627 

-3.75 

-5.79 

68 

0.00342 

0.006 

-0.0087 

-0.0089 

69 

-0.81656 

-1.038 

-0.76 

-0.966 

-0.8377 

-1.552 

-0.78 

-0.97 

-1.658 

-0.76 

-0.942 

-0.73 

-0.913 

-0.68 

-0.884 

-0.850 

70 

— 

— 

— 

0.0 

71 

6.5 

7.5 

3.2 

3.5 

2.7 

4.5 

0.9 

1.0 

0.8 

2.1 

0.0 

0.0 

0.0 

0.6 

0.9 

1.0 

0.8 

0.0 

3.2 

3.5 

2.7 

0.6 

6.0 

2.1 

4.5 

72 

420.0 

7.5 

581.0 

1500.0 

3885.0  ® 

565.0 

716.0 

2000.0 

4715.0 

655.0 

817.0 

3500.0 

5000.0 

685.0 

878.0 

2000.0 

4715.0 

655.0 

900.0 

1500.0 

3885.0 

565.0 

878.0 

420. 0 

817.0 

716.0 

581.0 

73 

— 

— 

1500.0 

3145.0 

700.0 

1670.0 

0.0 

0.0 

-700.0 

-1670.0 

-1500.0 

-3145.0 

74 

— 

— 

12.0 

12.0 

10.0 

10.0 

8.0 

8.0 

6.0 

6.0 

75 

— 

— 

175.0 

375.0 

76 

— 

.  — 

300.0 

300.0 
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APPENDIX  C 


COMPUTER  PROGRAM 


Appendix  C  contains  a  complete  description  of  the 
computer  program  for  the  AMC  model  for  predicting  cross¬ 
country  vehicle  performance.  A  chart  outlining  the  calling 
sequency  of  subroutines  (Figure  Cl)  and  a  master  glossary 
of  variable  names  are  followed  by  descriptions  of  the  main 
program  and  each  subroutine  in  order,  as  listed  below.  Each 
subroutine  description  is  followed  by  a  flow  chart 
(numbered  figure)  and  a  computer  listing. 


1.  Calling  Sequence 

2.  Glossary 

3.  Main  Program  FIVEYP 

4.  Subroutine  INPUT 

5.  Power  Train  Submodel 

a.  Subroutine  STICK 

b.  Subroutine  AUT0F 

6.  Subroutine  KURVE 

7.  Subroutine  CURVE 

8.  Subroutines  F0IL  and  C0IL 

a.  Subroutine  F0IL 

b.  Subroutine  C0IL 


9. 

Subroutine 

PATCH 

10. 

Subroutine 

MARSH 

11. 

Subroutine 

HILL 

12. 

Subroutine 

VISI0N 

13. 

Subroutine 

AREA0 

14. 

Subroutine 

0BSTCL 

15. 

Subroutine 

0BSF 

16. 

Subroutine 

AREAV 

17. 

Subroutine 

VEGF 

18. 

Subroutine 

AREAT 

19. 

Subroutine 

RIVER 

20. 

Subroutine 

DIG 

21. 

Subroutine 

VWRT 

22. 

Subroutine 

R0UTE 

23. 

Subroutine 

Data  Files 

24. 

Vehicle  Ride  Dynamics  Submodel 

C-l 


CALLING  SEQUENCE 


MAM 

PROGRAM 


subroutines 


DATA 

FlUES 


MASTER  GLOSSARY 


Variable 

Name 

Used  in 
Subroutine 

Definition 

A 

0BSTCL 

AREA0 

Obstacle  approach  angle  (deg,  rad) 

(s  0BAA  in  PATCH) 

A 

INPUT 

F0IL 

Tracked:  Area  of  one  track  shoe  (in.^) 

Wheeled:  Number  of  axles 

AA  (I ) 

FIVEYP 

PATCH 

Midpoint  of  obstacle  approach  angle  Class 

I  (deg) 

AAV 

RIVER 

Vehicle  approach  angle  (rad)  (=  AV  in 

FIVEYP)  (=  in  0BSTCL,  INPUT) 

AAVl 

RIVER 

Vehicle  approach  angle  plus  5  degrees  (rad) 
(=  THD  in  DIG) 

ACC 

VISI0N 

Maximum  vehicle  acceleration  (ft/sec  ) 

ACCEL 

PATCH 

Total  tractive  force  (lb)  then  changed  to: 
vehicle  acceleration  (mph/sec) . 

ACG 

0BSTCL 

INPUT 

Angle  between  a  line  parallel  to  the  ground 
surface  and  the  line  connecting  the  CG  and 
the  center  of  the  rear  wheel  (roadwheel  or 
idler) .  The  wheel  is  the  one  used  to 
determine  departure  angle  (rad) . 

AD0 

PATCH 

MARSH 

AREA0 

AREAT 

Percentage  of  area  denied  by  obstacles 

AD01 

AREA0 

2 

Area  denied  by  one  obstacle  (ft  ) 

ADT 

AREAT 

Percentage  of  area  denied  by  both  obstacles 
and  vegetation 

ANGLE 

HILL 

Slope  angle  (rad) 

AREA ( I ) 

R0UTE 

Percentage  of  course  area  in  which  the 
vehicle  can  achieve  speed  range  I 

1=  123456 

RANGE  (MPH)  =  0-2  2-4  4-6  6-8  8-10  >10 
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Variable  Used  in 


Name 

Subroutine 

Definition 

i 

AREA0 

R0UTE 

Percentage  of  course  area  in  which  the 
vehicle  is  immobilized. 

ATM 

0BSTCL 

=  AT  AN  (MU) 

ATP 

RIVER 

DIG 

Time  penalty  for  excavating  a  river  bank 
to  allow  egress  (min) 

AV 

FIVEYP 

Vehicle  approach  angle  (rad)  (=  AAV  in 

RIVER)  (=  VAA  in  0BSTCL,  INPUT) 

AV,  AV2 , 
AV3 

0BSTCL 

Vehicle  angle  with  respect  to  level  (rad) 

(see  analysis) 

AVGV 

R0UTE 

Average  vehicle  velocity  over  the  course 
(mph) 

AWPKF 

INPUT 

RIVER 

Auxilliary  water  propulsion  factor  -  no 
=  .5,  yes  =  .8 

Al 

0BSTCL 

The  maximum  obstacle  flank  angle  that  the 
vehicle  can  climb  (rad)  (if  less  than  A, 
the  vehicle  is  immobilized  in  traction) 

BA 

PATCH 

Maximum  vehicle  breaking  deceleration 
(mph/sec) 

BCA 

0BSTCL 

Belly  clearance  angle  (rad) 

BD 

FIVEYP 

River  bank  differential  height  (ft) 

BDC (I) 

FIVEYP 

Midpoint  of  river  bank  differential  height 
class  I  (ft) 

BH 

DIG 

River  bank  height  (ft)  (=  BHI,  ESLH  in  RIVER) 

BHI 

FIVEYP 

RIVER 

River  bank  height  (ft)  (=  BH  in  DIG) 

BRF0R 

PATCH 

Maximum  braking  force  (lb)  (=  TR0F  in  VISI0H) 

C 

FIVEYP 

RIVER 

Soil  cohesion 

CA 

0BSTCL 

=  COS  (A) 

CAF 

C0IL 

Contact  area  factor  used  in  mobility  index 
calculation 
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Variable 

Name 


Used  in 
Subroutine 


Definition 


CAV 

0BSTCL 

=  COS(AV) 

CA2 

0BSTCL 

=  COS (A/2.) 

CF 

F0IL 

C0IL 

Correction  factor  used  in  slip  calculation 

CGF 

0BSTCL 

INPUT 

Horizontal  distance  from  the  CG  to  the  front 
wheel  centerline  (in) 

CGH 

0BSTCL 

INPUT 

Vertical  distance  from  the  CG  to  the  road- 
wheel  centerline  (in) 

CGR 

0BSTCL 

Horizontal  distance  from  the  CG  to  the  rear 
wheel  centerline  (in) 

CLF 

F0IL 

Clearance  factor  used  in  mobility  index 
calculation 

C0NF1 

PATCH 

Conversion  factor  =  15. /22.  fps  mph 

C0NF2 

PATCH 

Con\*ersion  factor  =  22./15.  mph  fps 

C0URSE 

R0UTE 

Alphanumeric  variable  containing  course  file 
name  (e.g.:  =  SEGPRl) 

CPF 

F0IL 

C0IL 

Contact  pressure  factor  used  in  mobility 
index  calculation 

CURV 

RIVER 

Raft  capacity  curve  limit  (lb) 

CX 

F0IL 

•  DP 

Maximum  rj-  for  given  conditions 

CXP 

F0IL 

^  DP 

Assymptote  of  W^qq  versus  slip  curve 

DCG 

0BSTCL 

INPUT 

Distance  from  the  CG  to  the  center  of  the 
rear  wheel  (roadwheel  or  idler) .  The  wheel 
is  that  one  used  to  determine  departure 
angle  (in.) 

DFW 

0BSTCL 

Horizontal  distance  from  the  front  wheel 
centerline  to  the  leading  edge  of  the 
vehicle  (in.) 

Variable  Used  in 


Name 

Subroutine 

Definition 

DIST 

R0UTE 

Total  length  of  the  course  along  one  edge 
(inside  edge  if  the  course  strip  is 
folded)  (ft) 

DISTM 

R0UTE 

Total  length  of  the  course  along  one  edge 
(inside  edge  if  the  course  strip  is 
folded)  (miles) 

DL 

INPUT 

F0IL 

Tracked:  Length  of  track  on  the  ground  (in) 
Wheeled:  Wheel  diameter  (in) 

D0W 

F0IL 

C0IL 

Drawbar  pull  to  weight  ratio 

DOW20 

C0IL 

Drawbar  pull  to  weight  ratio  at  20  percent 
slip 

DP  (I) 

R0UTE 

Distance  across  the  Ith  patch  traversed 
along  a  path  segment 

DR 

VISI0N 

Recognition  or  stopping  distance  (ft) 

(=  RD(I)  in  PATCH) 

DRW 

0BSTCL 

Horizontal  distance  from  the  rear  wheel 
centerline  to  the  trailing  edge  of  the 
vehicle  (in) 

DS 

0BSTCL 

The  greatest  top  trench  width  that  the 
vehicle  can  bridge  (in) .  Tracked  =  TI 
Wheeled  =  2.*RW 

DWX 

FIVEYP 

RIVER 

Maximum  span  between  adjacent  wheel  center- 
lines  (in)  (=  GWS  in  INPUT,  0BSTCL) 

DW100 

C0IL 

Drawbar  pull  to  weight  ratio  at  100  percent 
slip. 

Dl  thru 

D5 

0BSTCL 

Critical  distances  (see  analysis) 

EA 

0BSTCL 

The  least  of  the  vehicle  angles  of  approach 

and  departure  (rad)  min  (VAA,  VDA) 
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Variable 

Name 

Used  in 
Subroutine 

EBH 

RIVER 

EC 

0BSTCL 

ED 

0BSTCL 

EF 

F0IL 

EFF 

INPUT 

AUT0F 

STICK 

0UTPT 

ENTCE 

AUT0F 

ENTCG 

INPUT 

AUT0F 

ESL 

RIVER 

ESLH 

RIVER 

FACT 

KURVE 

CURVE 

FAC  7 

C0IL 

FAT 

PATCH 

MARSH 

VEGF 

FATl 

PATCH 

MARSH 

VEGF 

FD 

INPUT 

FIVEYP 

RIVER 

Definition 

Effective  height  of  first  exit  slope  (ft) . 

=  FEC  if  VAA  VDA 
=  REC  if  VAA  VDA 

=  DFW  if  VAA  VDA 
=  DRW  if  VAA  VDA 

Engine  factor  used  in  mobility  index  cal¬ 
culation  10  hp/ton  =1.  10  hp/ton  = 

1.05 

Transmission  efficiency 


Engine  to  torque  converter  efficiency 
Gear  ratio  from  engine  to  torque  converter 


Effective  slope  (rad)  (=  THN  in  DIG) 

Effective  slope  height  (ft)  (=  BH  in  DIG) 

Denotes  whether  the  dependent  variable  in¬ 
creases  or  decreases  as  the  independent 
variable  increases 

Tire  factor  used  in  vehicle  cone  index 
calculation 

Average  force  to  override  multiple  trees 
(lb) 


Average  force  to  fell  a  single  tree  (lb) 


Fording  depth  or  draft  height  (in.) 
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Variable 

Used  in 

Name 

Subroutine 

Definition 

FDR 

INPUT 

AUT0F 

STICK 

0UTPT 

Final 

drive 

gear 

ratio 

FDREF 

INPUT 

AUT0F 

STICK 

0UTPT 

Final 

drive 

gear 

efficiency 

FEC 

INPUT 

0BSTCL 

Vehicle  front  end  clearance  (in.)  (vertical 
clearance  of  vehicle's  leading  edge) 

FLAGM 

AUT0F 

Temporary  minimum  engine  speed  used  in 
finding  engine  operating  point 

FLAGP 

AUT0F 

Temporary  maximum  engine  speed  used  in 
finding  engine  operating  point 

FMT 

PATCH 

MARSH 

VEGF 

Maximum  force  to  override  a  single  tree  (lb) 

F0M 

PATCH 

0BSF 

Average  force  to  override  obstacles  (lb) 

F0RCE (1, I) 

AUT0F 

STICK 

FIVEYP 

F0IL 

The  Ith  tractive  force  component  (lb) 

F0RCE (2 , I) 

C0IL 

0UTPT 

The  Ith  velocity  component  on  the  tractive 
effort  versus  vehicle  velocity  curve  (mph) 

I  =  1,101  (0-50  mph  in  1/2  mph  increment) 

F0RCR  ( 1,1) 

F0IL 

C0IL 

PATCH 

MARSH 

The  Ith  velocity  component  on  the  soil- 
dependent  tractive  effort  versus  vehicle 
velocity  curve  for  level  ground  (mph) 

F0RCR (2,1) 


The  Ith  tractive  force  component  for  level 
ground  (mph) 
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Variable 

Name 

Used  in 
Subroutine 

Definition 

F0RCR (3,1) 

F0IL 

C0IL 

PATCH 

MARSH 

The  Ith  velocity  component  on  the  soil- 
dependent  tractive  effort  versus  vehicle 
velocity  curve  on  a  slope  (mph) 

F0RCR(4, I) 

The  Ith  tractive  force  component  on  a 
slope  (lb)  (=  TABLE (J, I)  in  KURVE) 

F0RK 

F0IL 

C0IL 

Tractive  force  (temporary  variable) 

F0RMX ( I ) 

F0IL 

C0IL 

PATCH 

MARSH 

0BSTCL 

Maximum  tractive  force  on  slope  I  (max  of 
array  FORCR)  1=1  downhill 

2  level  ground 

3  uphill 

(Limited  by  vehicle  capacity  and  soil 
failure) 

FT 

AREAV 

Temporary  variable  carrying  value  of  XNT 

FX 

CURVE 

KURVE 

The  value  of  the  dependent  variable 
interpolated  from  the  entering  array 

G 

PATCH 

MARSH 

Acceleration  of  gravity  =  32.16  ft/sec 

GC 

INPUT 

F0IL 

RIVER 

0UTPT 

Vehicle  ground  clearance  at  the  center  of 
the  greatest  wheel  span  (in.)  (=  1000.  for 

tracked  vehicles)  (=  BC  in  0BSTCL) 

GCA 

INPUT 

RIVER 

Ground  contact  area  (in.^) 

GF 

F0IL 

Grouser  factor  used  in  mobility  index 
calculation: 

Wheeled:  w/o  chains  =  1. 

w/chains  =  1.05 

Tracked:  1.5  in.  high  =  1 

1.5  in.  high  =  1.1 
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Variable 

Used  in 

Name 

Subroutine 

GR(I) 

INPUT 

AUT0F 

STICK 

0UTPT 

GRADE 

PATCH 

HILL 

F0IL 

C0IL 

GRAD  I 

PATCH 

GT 

INPUT 

F0IL 

C0IL 

GVW 

INPUT 

F0IL 

C0IL 

PATCH 

MARSH 

RIVER 

0BSTCL 

HILL 

0BSF 

0UTPT 

GWS 

INPUT 

0BSTCL 

H 

PATCH 

0BSTCL 

0BSF 

HC 

0BSTCL 

INPUT 

HFT  0BSF 


Definition 

Gear  ratio  of  the  Ith  gear 


Percent  grade  (slope)  (=  SLC(I)  in 
FIVEYP) 


Percent  grade  (slope)  (temporary  variable) 

Tracked:  Grouser  height  (in.) 

Wheeled:  Number  of  tires 


Gross  vehicle  weight  (lb) 


Maximum  span  between  adjacent  wheel  center- 
lines  (in.)  (=  DWX  in  FIVEYP,  RIVER) 

Obstacle  height  (in.)  (=  X  in  CURVE) 


Vertical  distance  from  the  ground  to  the 
center  of  the  rear  wheel  (roadwheel  or  idler) . 
The  wheel  is  the  one  used  to  determine 
departure  angle  (in.).  Wheeled  =  RW 

Obstacle  height  (ft) 
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Variable 

Name 

Used  in 
Subroutine 

• 

Definition 

HPT 

INPUT 

F0IL 

0UTPT 

Vehicle  rated  horsepower  per  ton 

HS 

INPUT 

RIVER 

Maximum  vertical  step  that  the  vehicle  can 
climb  (in.) 

Hi  thru 

H9 

0BSTCL 

Critical  distances  (see  analysis) 

I 

R0UTE 

The  starting  point  of  a  path  sgement  through 
a  course  section  (see  J,K) 

IAVE 

FIVEYP 

Alphanumeric  variable  containing  "AVE" 

IBEG 

KURVE 

Index  denoting  the  first  non-zero  point  in 
the  column  (of  the  entering  array)  designated 
as  the  dependent  variable 

IDRY 

FIVEYP 

Alphanumeric  variable  containing  "DRY" 

IFX 

KURVE 

CURVE 

Index  designating  which  column  in  the 
entering  array  represents  the  dependent 
variable 

IF0R 

F0IL 

C0IL 

Index  denoting  force  component  (see:  F0RCE, 
F0RCR) 

IG0 

FIVEYP 

F0IL 

C0IL 

PATCH 

0BSTCL 

Denotes  "go"  condition;  no  go  =  0;  go  =  1 
(negative  values  are  used  to  indicate  "no 
go"  for  various  reasons) 

IGR 

PAT IN P 
FIVEYP 

PATCH 

Percent  slope  class  for  given  patch  type 

IND 

PATCH 

MARSH 

AREAV 

VF.GF 

Temporary  index 

INDEX 

R0UTE 

Temporary  index  denoting  velocity  range 
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Variable  Used  in 


Name 

Subroutine 

Definition 

I0BAA 

PAT  IN  P 
FIVEYP 

Obstacle  approach  angle  class  for  given 
patch  type 

I0BH 

PATINP 

PATCH 

Obstacle  height  class  for  given  patch 
type 

I0BL 

PATINP 

PATCH 

Obstacle  length  class  for  given  patch 
type 

I0BS 

PATINP 

FIVEYP 

PATCH 

Obstacle  spacing  class  for  given  patch 
type 

I0BW 

PATINP 

PATCH 

Obstacle  width  class  for  given  patch  type 

I0ST 

PATINP 

PATCH 

0BSF 

AREA0 

Obstacle  spacing  type  class  for  given 
patch  type  -  random  =  1,  linear  =  2 

IP(I) 

R0UTE 

Type  number  of  the  Ith  patch  traversed 
along  a  path  segment 

I  PR 

PATINP 

PATCH 

Microprofile  type  number  for  given  patch 
type 

IPX 

R0UTE 

Temporary  index  denoting  patch  type 

IR 

FIVEYP 

Temporary  index  denoting  RCI  class  for 
given  season  for  given  patch  type 

IRC I (I) 

PATINP 

FIVEYP 

RCI  class  for  season  I  for  given  patch 
type 

IREC 

PATINP 

PATCH 

Recognition  distance  class  for  given 
patch  type 

'is  (I) 

PATINP 

PATCH 

MARSH 

Stem  spacing  class  corresponding  to  stem 
diameter  class  I 
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Variable  Used  m 


Name 

Subroutine 

Definition 

I  SEAS 

FIVEYP 

Alphanumeric  variable  containing  season 
name  ("DRY",  "AVE" ,  "WET") 

ISL0P 

F0IL 

C0IL 

Temporary  index  denoting  slope 

ISNI 

FIVEYP 

Temporary  index  denoting  season 

DRY  =  1  AVE  =  2  WET  =  3 

I SRC ( I ) 

RIVEYP 

PATCH 

Surface  roughness  class  corresponding  to 
microprofile  type  I 

1ST 

PATINP 

FIVEYP 

Soil  type  class  for  given  patch  type 
fine-grained  =  1  coarse-grained  =  2 

ITIME 

R0UTE 

Denotes  which  data  file  is  to  be  read: 

0  =  SEGPRl  1  =  MAPPR  2  =  RIVPR 

ITRAN 

INPUT 

FIVEYP 

0UTPT 

Transmission  type:  stick  =  0 
automatic  =  1 

ITVAR 

INPUT 

F0IL 

Transmission  variety:  hydraulic  =  0 
mechanical  =  1 

IVEL 

F0IL 

C0IL 

Index  denoting  velocity  component  (see: 
F0RCE,  F0RCR) 

IVEL 

AUT0F 

STICK 

PATCH 

MARSH 

KURVE 

0UTPT 

The  number  of  point  pairs  in  the  velocity 
versus  tractive  force  arrays  (F0RCE  and 
F0RCR)  (_  101) 

IWET 

FIVEYP 

Alphanumeric  variable  containg  "WET" 

IX 

KURVE 

CURVE 

Index  designating  which  column  in  the 
entering  array  represents  the  independent 
variable 

J 

R0UTE 

The  ending  point  of  a  path  segment  through 
a  course  section  (see:  I,  K) 

Variable  Used  in 


Name 

Subroutine 

Definition 

JQ 

R0UTE 

The  line  number  to  be  written  into  an 
external  data  file  containing  array  "s" 
for  the  given  vehicle 

JX(I) 

R0UTE 

The  number  of  path  segment  termination 
points  on  the  line  between  course  sections 
1-1  and  I 

JI 

AUT0F 

STICK 

Temporary  index  denoting  the  particular 
point  pair  in  the  tractive  force  versus 
velocity  array  (F0RCE) 

K 

R0UTE 

The  course  section  being  traversed 
(see:  I,J) 

L0KUP 

INPUT 

Denotes  presence  of  a  torque  converter 
lockup  -  no  =  0  yes  =  1 

MD 

VEGF 

Maximum  stem  diameter  class  to  be  over¬ 
ridden 

MSD 

AREAV 

Minimum  stem  diameter  class  to  be  avoided 

MDSMl 

AREAV 

=  MSD  -  1 

MU 

real 

0BSTCL 

Coefficient  of  rolling  friction 

N 

KURVE 

CURVE 

Denotes  which  columns  in  the  entering  array 
are  to  be  designated  as  dependent  and 
independent  variables  (see:  IX,  IFX) 

N 

R0UTE 

The  number  of  patches  traversed  on  a  path- 
segment 

NBC 

F0IL 

C0IL 

INPUT 

Tracked:  Number  of  bogies 

Wheeled:  Denotes  presence  of  chains  (no  = 

0,  yes  =  1) 

NBDC 

FIVEYP 

River  bank  differential  height  class  for 

given  river  type 
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Variable 

Name 

NCREW 

NCI 

NC2 

NC3 

NC4 

NC5 

ME 

real 

NEI 

real 

NEMAX 

real 

NEMIN 

real 

NESC 

NEX 

NEI 

real 

NFL 


Used  in 
Subroutine 

Definition 

INPUT 

RIVER 

DIG 

Number  of  people  in  the  vehicle  on  a 
normal  situation 

INPUT 

Number  of  point  pairs  in  array  TNEl 

INPUT 

Number  of  point  pairs  in  array  TTM 

INPUT 

AUT0F 

STICK 

Number  of  point  pairs  in  array  TTE 

INPUT 

PATCH 

Number  of  point  pairs  in  array  V00B 
(=  in  CURVE) 

INPUT 

Number  of  points  in  array  VRIDE 

AUT0F 

Engine  speed  (rpm)  (=  in  CURVE) 

AUT0F 

Average  of  current  values  of  FLAGM  & 

FLAGP  (rpm) 

AUT0F 

STICK 

Maximum  engine  speed  from  engine  torque 
curve  (rpm) 

AUT0F 

STICK 

Minimum  engine  speed  from  engine  torque 
curve  (rpm) 

FIVEYP 

River  egress  bank  angle  class  for  given 
river  type 

FIVEYP 

RIVER 

Number  of  distinct  slopes  on  the  egress 
bank  of  a  river  (=  1  for  this  generation) 

AUT0F 

Temporary  enqine  speed  (=  FX  in  CURVE) 

INPUT 

C0IL 

Track  type:  not  flexible  =  0,  flexible  = 
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Variable 

Name 

Used  in 
Subroutine 

Definition 

NG 

INPUT 

AUT0F 

STICK 

0UTPT 

Number  of  gear  ratios  in  the  transmission 

NGEAR 

AUT0F 

STICK 

J 

Temporary  index  denoting  transmission  gear 
ratio 

NISC 

FIVEYP 

River  ingress  bank  angle  class  for  given 
river  class 

N0DE (I, J) 

R0UTE 

The  point  on  line  1+1  (next  line  toward  the 
destination)  along  the  best  route  from  point 
J  on  line  I  to  the  destination 

N0DEF (I) 

R0UTE 

The  point  on  line  I  along  the  finally 
selected  best  route  through  the  course 

N0P 

R0UTE 

Number  of  points  on  a  line  of  the  grid 
overlay  for  the  course  map 

N0S 

R0UTE 

The  number  of  sections  into  which  the  grid 
overlay  for  the  course  map  is  divided 

N0SM1 

R0UTE 

=  NOS  -  1 

N0SM2 

R0UTE 

=.'  NOS  -  2 

NPAT 

PATINP 

FIVEYP 

The  type  number  of  the  particular  patch  or 
river  being  traversed 

NPATCH 

FIVEYP 

Total  number  of  patch  types  (including 
marshes) 

NRIV 

FIVEYP 

Total  number  of  river  types 

NRWC 

FIVEYP 

River  width  class  for  given  river  type 

NSDC 

FIVEYP 

PATINP 

PATCH 

MARSH 

AREAV 

Number  of  stem  diameter  classes 
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Variable 

Name 

Used  in 
Subroutine 

Definition 

NSDCM 

PATCH 

MARSH 

=  NSDC  -  1 

NSDCP 

PATCH 

MARSH 

=  NSDC  +  1 

NSSC 

FIVEYP 

PATCH 

MARSH 

Number  of  stem  spacing 

classes 

NT 

real 

AUT0F 

STICK 

Transmission  input  speed  (rpm) 

NT 

0BSTCL 

Denotes  obstacle  type: 
trench  =  2 

ridge  =  1 

NV 

0BSTCL 

=  NVEH  +  1 

NVEH 

INPUT 

F0IL 

C0IL 

0BSTCL 

RIVER 

Denotes  vehicle  type: 
6x6  =  2 ,  8x8  =  3 

tracked  =  0,  4x4 

NWDC 

FIVEYP 

Water  depth  class  for 

given  river  type 

NWV 

FIVEYP 

Water  speed  class  for 

given  river  type 

0BAA 

PATCH 

Obstacle  approach  angle  (deg)  {=  A  in 
0BSTCL) 

0BL 

PATCH 

AREA0 

0BSF 

Obstacle  length  (ft) 

0BS 

PATCH 

AREA0 

0BSF 

Obstacle  spacing  (ft) 

0BW 

PATCH 

AREA0 

Cross-sectional  width 
obstacle  (ft)  (=WB  in 

at  the  bottom  of 
0BSTCL) 
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Definition 


Variable 

Name 

"Used  in 
Subroutine 

0H(I) 

FIVEYP 

PATCH 

Midpoint 

0L(I) 

FIVEYP 

PATCH 

Midpoint 

0S(I) 

FIVEYP 

PATCH 

Midpoint 

0W  (I) 

FIVEYP 

PATCH 

Midpoint 

of  obstacle  height  class  I  (in) 
of  obstacle  length  class  I  (ft) 
of  obstacle  spacing  class  I  (ft) 
of  obstacle  width  class  I  (ft) 


P 

PAV 


R0UTE 


Total  time  of  the  best  route  through  the 
course  (min)  (see:  SUMT0T) 


PATCH 

MARSH 

AREAV 

AREAT 


Percentage  of  area  denied  by  vegetation 


PBF 


INPUT  Maximum  force  that  the  vehicle  pushbar  can 

PATCH  withstand  (lb) 

MARSH 


PBHT 


INPUT 

PATCH 

MARSH 

VEGF 


Height  of  vehicle  pushbar  (in.) 


PC  (I) 


PI 


FIVEYP 


AUT0F 

STICK 

RIVER 

AREA0 

0BSF 

VEGF 


Percentage  of  patches  in  which  the  vehicle 
can  achieve  speed  range  I 

1  =  12  3  4  5  6  7 

Range  (mph)  =  0  0-2  2-4  4-6  6-8  8-10  10 

=  3.14159265 
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Variable 

Name 

Used  in 
Subroutine 

Definition 

PID 

INPUT 

0BSTCL 

Conversion  factor  =  PI/180  (deg  rad) 

P0DE(I, J) 

R0UTE 

The  time  along  the  best  route  from  point  J 
on  line  I  to  the  destination  (min) 

PI 

R0UTE 

Temporary  variable  containing  route  time 
(min) 

RBA ( I ) 

FIVEYP 

RIVER 

River  bank  angle  I  (consecutively  up  the 
bank)  (deg) 

RBH(I) 

FIVEYP 

RIVER 

River  bank  height  I  (consecutively  up  the 
bank)  (ft) 

RCI 

FIVEYP 

F0IL 

C0IL 

Rating  cone  index  of  the  soil 

RCIC  (I) 

FIVEYP 

Midpoint  of  soil  RCI  class  I 

RCIX 

F0IL 

Excess  RCI  (above  one-pass  vehicle  cone 
index) 

RD  (I) 

FIVEYP 

PATCH 

Midpoint  of  recognition  distance  class  I 
(ft)  (=  DR  in  VISI0N) 

RDIAM 

INPUT 

C0IL 

Wheel  rim  diameter  (in.) 

REC 

0BSTCL 

Rear  end  clearance  (in)  (vertical  clearanc 
of  vehicle's  trailing  edge) 

RGU(I) 

PATCH 

HILL 

Total  resisting  force  due  to  soil  and  slop 
for  slope  I  (lb) 

1=1  downslope 
=  2  level  ground 
=  3  ups lope 

RR 

INPUT 

AUT0F 

STICK 

Tracked:  Sprocket  pitch  radius  (in.) 

Wheeled:  Tire  rolling  radius  (in.) 

c- 20 


Variable  Used  in 


Name 

Subroutine 

Definition 

RT 

PATCH 

Soil  resistance  (lb) 

MARSH 

F0IL 

C0IL 

HILL 


RT0W 

F0IL 

C0IL 

Resistance  to  weight  ratio 

RTS 

PATCH 

HILL 

Soil  resistance  on  slope  (lb) 

RW 

0BSTCL 

Tracked:  Road  wheel  radius  plus  track 

thickness  (in.) 

Wheeled:  Tire  rolling  radius  (in.) 

RW 

FIVEYP 

RIVER 

River  width  (ft) 

RWC 

0BSTCL 

=  RW  *  (1.-C0S (A) ) 

RWC  (I) 

FIVEYP 

Midpoint  of  river  width  class  I 

RWT 

0BSTCL 

=  RW  *  TAN  (A/2.) 

RWW 

0BSTCL 

INPUT 

Track  thickness  plus  the  radius  of  the  rear 
wheel  (roadwheel  or  idler) .  The  wheel  is 
the  one  used  to  determine  departure  angle 
(in.).  Wheeled  =  RW. 

S(I) 

PATCH 

MARSH 

AREAV 

Mean  spacing  of  all  stems  in  stem  diameter 
class  I  or  larger  (ft) 

s(l,  J,K) 

R0UTE 

Time  required  to  traverse  the  path  segment 
from  point  I  on  the  starting  line  to  point 

J  on  the  ending  line  of  course  section  K 
(min. ) 

SA 

0BSTCL 

=  SIN  (A) 

Variable 

Name 


Used  in 
Subroutine 


Definition 


SAI 

INPUT 

RIVER 

SAV 

0BSTCL 

SA2 

0BSTCL 

SD  (I) 

FIVEYP 

PATCH 

MARSH 

AREAV 

VEGF 

SDA 

AREAV 

SDL (I) 

FIVEYP 

PATCH 

MARSH 

VEGF 

SDM 

VEGF 

SDS(I) 

PATCH 

MARSH 

VEGF 

SF 

C0IL 

SF 

RIVER 

SF 

R0UTE 

SFI 

RIVER 

SLC (I) 

FIVEYP 

PATCH 

SLIP 

F0IL 

C0IL 

SR 

AUT0F 

Ingress  swamp  angle  of  vehicle  (deg,  rad) 
(=  THD  in  DIG) 

=  SIN(AV) 

=  SIN (A/2.) 

Midpoint  of  stem  diameter  class  I  (in.) 


Average  stem  diameter  to  be  avoided  (in.) 
Upper  limit  of  stem  diameter  class  I  (in.) 


Maximum  stem  diameter  to  be  overridden  (in.) 
Mean  spacing  for  stem  diameter  class  I  (ft) 


Strength  factor  used  in  vehicle  cone  index 
calculations 

River  bank  severity  factor  (ft)  (see:  SFI) 

Scale  factor  (=  1.  this  generation)  (to  be 
changed  if  data  is  given  in  meters  instead 
of  ft) 

River  bank  severity  factor  (in.)  (see:  SF) 

Midpoint  of  slope  class  I  (percent  slope) 

(=  GRADE  in  F0IL,  C0IL) 

Percent  slip  of  the  vehicle  tractive  element 
in  the  soil 

Torque  converter  speed  ratio  (=  X  in  CURVE) 
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Variable 

Name 

Used  m 
Subroutine 

Definition 

SRI 

AUT0F 

Torque  converter  speed  ratio 

SRF 

PATCH 

MARSH 

AREAT 

Speed  reduction  factor  due  to 
maneuvering 

SUMI 

AREAV 

Sum  of  diameters  of  all  trees  in  an  area 
containing  one  tree  of  the  largest  size 
(in. ) 

SUMT 

AREAV 

Number  of  all  trees  in  an  area  containing 
one  tree  of  the  largest  size 

SUMT0T 

R0UTE 

Total  time  of  the  best  route  through  the 
course  (hr)  (see:  P) 

SV(I) 

FIVEYP 

PATCH 

MARSH 

Midpoint  of  stem  spacing  class  I  (ft) 

T 

R0UTE 

Total  time  penalty  associated  with  river 
crossings  and  exits  on  one  path  segment 
(min) 

TA 

0BSTCL 

=  TAN (A) 

TABLE 

(If  J) 

CURVE 

KURVE 

The  set  of  point  pairs  on  the  curve  to  be 
interpolated 

TAD 

PATCH 

Time  available  for  deceleration  (sec) 

TANP 

FIVEYP 

RIVER 

Tangent  of  the  angle  of  repose  of  the 
soil  (0) 

TAV 

0BSTCL 

=  TAN(AV) 

TA2 

0BSTCL 

=  TAN (A/2.) 

TC 

INPUT 

AUT0F 

Input  torque  at  which  the  torque  converter 
curves  were  measured  (ft~lb) 

Variable 

Name 

TDIST 

TDIST 

TE 

TEF 

TF 

TFAT 

TF0R  (1) 

TF0R ( 2 ) 
TF0R  (3 ) 

TF0R 

TF0W 

THD 

THEM 

THI 


Used  in 

Subroutine 

Definition 

PATCH 

Distance  that  the  vehicle  has  traveled 
since  the  last  obstacle  encounter  (ft) 

R0UTE 

Total  area  of  the  course  (ft)  (sum  of 
lengths  of  all  path  segments  whose  starting 
point,  I,  equals  the  ending  point,  J) 

AUT0F 

Engine  torque  from  net  engine  torque  curve 

STICK 

(ft- lb)  (=  FX  in  CURVE) 

0UTPT 

Total  power  train  efficiency 

F0IL 

Track  factor  or  tire  factor  used  in 
mobility  index  calculation 

VEGF 

Summation  of  the  work  required  to  override 
all  diameters  of  trees  to  be  run  over 

F0IL 

C0IL 

PATCH 

Maximum  tractive  force  downhill  (lb) 

Maximum  tractive  force  on  level  ground  (lb) 

Maximum  tractive  force  uphill  (lb)  (limited 
by  soil  failure  only)  (see:  F0RMX) 

VISI0N 

Maximum  braking  force  (lb)  (=  BRF0R  in 

PATCH) 

C0IL 

Tractive  force  to  weight  ratio 

DIG 

Angle  of  bank  to  be  excavated  to  permit 
egress  (rad)  (  =  AAV,  SAI,  THM,  THEM  in 

RIVER) 

RIVER 

Traction-limited  slope  (rad)  (=  THD  in  DIG) 

FIVEYP 

RIVER 

River  ingress  bank  angle  (rad)  (=  THN  in  DIG) 
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Variable 

Name 

Used  in 
Subroutine 

Definition 

THIC (I) 

FIVEYP 

Midpoint  of  river  bank  angle  class  I  (deg) 

THM 

RIVER 

Maximum  drop-off  angle  before  belly  hang¬ 
up  (rad)  (=  THD  in  DIG) 

THN 

DIG 

River  bank  angle  (to  be  excavated)  (=  THI, 
ESL  in  RIVER) 

TI 

AUT0F 

Torque  input  to  converter  necessary  to 
produce  desired  vehicle  speed  (ft-lb) 

TI 

0BSTCL 

(T  inside)  =  GWS  (wheeled) 

=  min  (CGF,  CGH)  (tracked) 

(see:  T0) 

TL 

INPUT 

0BSTCL 

Distance  between  first  and  last  wheel 
centerlines  (in.) 

TN 

FIVEYP 

RIVER 

Time  required  to  cross  a  river  (swimming, 
fording,  or  rafting)  excluding  ingress  and 
egress  time  (min)  (=  VR(I)  in  FIVEYP) 

TND 

PATCH 

Time  needed  for  deceleration  (sec) 

TNE 1 ( I , J ) 

INPUT 

AUT0F 

Array  containing  torque  converter  input 
speed  versus  converter  speed  ratio  curve 

T0 

0BSTCL 

(T  outside)  =  TL  (see:  TI) 

T0S 

AUT0F 

STICK 

Transmission  output  speed  (rpm) 

T0T 

FIVEYP 

Total  number  of  patches  in  which  the  vehicle 
can  achieve  a  speed  greater  than  0  but  less 
than-  10  mph 

T0T 

AUT0F 

STICK 

Transmission  output  torque  (ft-lb) 

TP 

FIVEYP 

RIVER 

Total  time  penalty  for  river  ingress  and 
egress  (min)  (=  TPR(I)  in  FIVEYP) 
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Variable 

Used  in 

Name 

Subroutine 

Definition 

TPLY 

INPUT 

Tire  ply  rating 

cefiL 

TPR(I) 

FIVEYP 

R0UTE 

Total  time  penalty  for  ingress  and  egress 
from  river  type  I  (min)  (  =  TP  in  RIVER) 

TPSI 

INPUT 

C0IL 

Tire  pressure  (psi) 

TRAT 

RIVER 

Traction  based  on  c  and  0  of  slope 

TRF 

AUT0F 

STICK 

Tractive  force  that  the  vehicle  can 
produce  (ft-lb) 

TRFU 

PATCH 

MARSH 

Total  motion  resistance  due  to  soil,  slope, 
obstacles  and  vegetation  (lb) 

TTE ( I, J) 

INPUT 

AUT0F 

STICK 

Array  containing  net  engine  torque  versus 
engine  speed  curve  (ft-lb,  rpm) 

TTIME 

PATCH 

Time  that  the  vehicle  has  traveled  since 
the  last  obstacle  encounter  (sec) 

(TTM(I,  J)  ) 

INPUT 

AUT0F 

Array  containing  torque  converter  torque 
multiplying  coefficient  versus  converter 
speed  ratio  curve 

TV 

RIVER 

Speed  made  good  in  crossing  a  river 
(corrected  for  downstream  drift,  mph) 

TVELl 

PATCH 

Current  speed  during  speed-up/slow-down 
model  (mph) 

TVEL2 

PATCH 

Temporary  variable  containing  velocity  (mph) 

TXF 

F0IL 

Transmission  factor  used  in  mobility  index 
calculation:  hydraulic  =  1,  mechanical  = 

1.05 
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Definition 


Variable 


Used  in 


Name 

Subroutine 

Tl 

R0UTE 

T2 

R0UTE 

V(I) 

FIVEYP 

R0UTE 

VAA 

INPUT 

0BSTCL 

veil 

F0IL 

C0IL 

VDA 

0BSTCL 

INPUT 

VEH 

0UTPT 

VEHICL 

FIVEYP 

INPUT 

VEL 

AUT0F 

STICK 

VEL0 ( I ) 

PATCH 

VEL0C 

FIVEYP 

PATCH 

MARSH 

Total  time  required  for  crossing  all  rivers 
encountered  on  a  given  path  segment 
(excluding  ingress  and  egress  time,  min) 

Total  time  penalty  for  river  ingress  and 
egress  on  all  rivers  encountered  on  a 
given  path  segment  (min) 

The  finally-selected  limiting  velocity  on 
patch  type  I  (fps) 

Vehicle  approach  angle  (deg,  rad)  (=  AV 
in  FIVEYP)  (=  AAV  in  RIVER) 

One-pass  vehicle  cone  index 


Vehicle  departure  angle  (rad) 


Alphanumeric  variable  containing  the 
vehicle  name  (e.g.:  M113A1,  M60A1,  M115A1, 

M35A2)  (  =  VEHICL  in  FIVEYP) 

Alphanumeric  variable  containing  the 
vehicle  name  (e.g.:  M113A1,  M60A1,  M115A1, 

M35A2)  (=  VEH  in  0UTPT) 

Temporary  variable  containing  vehicle 
velocity  (=  0.  mph  to  50.  mph  in  .5  mph 
steps) 

The  finally-selected  best-achievable  velocity 
on  the  given  patch  type  with  slope  I  (mph) 
1=1  downs lope 
=  2  level  ground 
=  3  ups lope 

The  finally-selected  best-achievable  velocity 
on  the  given  patch  type  (assuming  that  equal 
distances  will  be  traversed  downslope,  level 
and  ups lope,  mph) 
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Variable  Used  in 


Name 

Subroutine 

VELV 

• 

VISI0N 

VELV ( I ) 

PATCH 

VF 

0BSTCL 

VFS 

INPUT 

RIVER 

VL 

INPUT 

PATCH 

0BSTCL 

0UTPT 

VM 

PATCH 

MARSH 

VISI0N 

VMTEM 

PATCH 

MARSH 

V0LA 

PATCH 

0BSTCL 

V00B ( I , J) 

INPUT 

PATCH 

VR  (I) 

FIVEYP 

R0UTE 

VRID 

PATCH 

VRIDE(I) 

INPUT 

PATCH 

VSS 

INPUT 

FIVEYP 

RIVER 

Definition 

Velocity  limited  by  visibility  (mph) 

(=  VELV(I)  in  PATCH) 

Velocity  limited  by  visibility  on  slope  I 
(mph)  (=  VELV  in  VISI0N) 

Velocity  limited  by  soil  and  slope 
resistance  (mph) 

Vehicle  fording  speed  (mph) 

Vehicle  length  (ft)  (in) 


Vehicle  mass 


(lb-sec2/ft) 


Most  limiting  speed  between  obstacles  (mph) 


Limiting  speed  over  an  obstacle  limited  by 
2.5g  acceleration  (mph) 

Array  containing  vehicle  velocity  versus 
obstacle  height  at  2 . 5g  vertical  accelera¬ 
tion  (mph,  in.) 

Time  required  to  cross  river  type  I  (swimming 
fording,  or  rafting)  excluding  ingress  and 
egress  time  (min)  (=  TN  in  RIVER) 

Limiting  speed  due  to  vibration  at  the 
driver's  seat  for  a  given  patch  type  (mph) 

Limiting  speed  due  to  vibration  at  the 
driver's  seat  for  surface  roughness  class 
I  (mph) 

Vehicle  swimming  speed  (mph) 
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Variable  Used  in 


Name 

Subroutine 

Definition 

VTEM (I ,  J,  K) 

PATCH 

Final  limiting  velocity:  I  -  slope  type, 

J  -  over  or  around  obstacles,  K  -  over  or 
around  trees  (mph) 

VTT 

PATCH 

Force  limited  speed  (mph) 

W 

0BSTCL 

Finally-selected  limiting  velocity  used  to 
calculate  the  vehicle's  kinetic  energy  when 
encountering  an  obstacle  (mph)  =  Min  (VF, 
V0LA) 

vw 

F0IL 

C0IL 

Vehicle  weight  normal  to  the  ground  surface 
(lb) 

vx 

DIG 

3 

Volume  of  dirt  to  be  excavated  (ft  ) 

w 

INPUT 

PATCH 

MARSH 

AREAV 

AREA0 

VEGF 

0BSF 

RIVER 

DIG 

0UTPT 

Vehicle  width  (in.) 

WA 

AREA0 

Width  of  an  obstacle  at  ground  level  (ft) 
(mound  =  bottom  width;  trench  =  top  width) 

WB 

0BSTCL 

Cross-sectional  width  at  the  bottom  of  an 
obstacle  (ft)  (=  0BW  in  PATCH) 

WBI 

0BSTCL 

Cross-sectional  width  at  the  bottom  of  an 
obstacle  (in.)  (see:  WB) 

wc 

INPUT 

RIVER 

Vehicle  winch  capacity  (lb) 

WD 

FIVEYP 

RIVER 

Water  depth  of  a  river  (ft) 

WDC 

FIVEYP 

Midpoint  of  water  depth  class  I  (ft) 
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Variable 

Used  in 

Name 

Subroutine 

Definition 

WDF 

C0IL 

Wheel  diameter  factor  used  in  vehicle  cone 
index  calculation 

WF 

F0IL 

Weight  factor  used  in  mobility  index 
calculation 

WID 

INPUT 

F0IL 

C0IL 

Track  width  or  wheel  width  (in.) 

WL0RBF 

F0IL 

Wheeled:  Wheel  load  factor 

Tracked:  Bogie  factor 

Used  in  mobility  index  calculation 

WR 

F0IL. 

Vehicle  weight  range  (lb) 

WS 

FIVEYP 

RIVER 

Water  speed  of  a  river  (fps) 

WSC(I) 

FIVEYP 

Midpoint  of  river  water  speed  class  I  (fps) 

WX 

F0IL 

Vehicle  weight  range  (kip) 

X 

KURVE 

The  value  of  the  independent  variable  to  be 

CURVE 

used  in  interpolating  the  entering  array 

XBR 

INPUT 

Maximum  braking  force  that  the  vehicle  can 

PATCH 

develop  (lb) 

XJH 

FIVEYP 

.Upper  limit  of  speed  range  I  (mph)  (see: 

PC (I)) 

XJL 

FIVEYP 

Lower  limit  of  speed  range  I  (mph)  (see: 

PC  (I)  ) 

XMI 

F0IL 

Vehicle  mobility  index 

XNT(I) 

PATCH 

Number  of  trees  of  stem  diameter  class  I  in 

MARSH 

an  area  containing  one  tree  from  class  NSDC 

AREAV 

VEGF 

(the  largest  class) 
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Variable 

Name 

Used  in 
Subroutine 

Definition 

XX 

F0IL 

Temporary  variable  used  in  calculating 
drawbar  pull  to  weight  ratio 

XI  thru  X8 

0BSTCL 

Critical  distances  (see  analysis) 

Y 

F0IL 

Temporary  variable  used  in  slip  calculation 

VARIABLES  USED 

IN  RIDE  DYNAMICS  SUBMODEL  (VRDM) 

FORCW(I) 

Resultant  vertical  force  at  I^-“  axle  due 
to  profile  input  to  segmented  wheel 

FORCH(I) 

Resultant  horizontal  forces  at  1^  axle 
due  to  profile  input  to  segmented  wheel 

FORCT(I) 

Track  interconnecting  vertical  force 
between  the  (1—1)*'“  and  the  I*"“  axles 

FORCE (I) 

Suspension  spring  vertical  force  of  the 

I*-*1  axle 

SPDEF  (I) 

Deflection  of  the  suspension  spring  of  the 
I*^  axle 

DSPDF  (I) 

Time  derivative  of  SPDEF  or  relative 
velocity  of  I^h  suspension 

THRESH (K) 

Threshold  height  of  the  wheel  segment, 

KKsin0K 

SIGMA (K) 

Horizontal  spring  constant  for  the  K*1*1 
wheel  segment,  KKsinOK 

GAMMA (K) 

Vertical  spring  constant  for  the  wheel 

segment,  KKcosQpr 

VAR (N) 

Solution  of  N*-*1  first  order  vehicle 
differential  equation 

Y 

Array  containing  those  interpolated  profile 
elevations  beneath  the  vehicle 

PASTP 

Array  containing  old  input  profile  time 
history 

PROF I L 

Array  containing  new  input  profile  time 
history 
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Variable 

Description 

PWRVAR(N) 

Solution  of  absorbed  power  first 

order  differential  equation 

DAMP (I) 

Damping  force  of  axle  suspension 

ACCISS (M) 

Acceleration  in  in/sec2  (except  pitch) 
of  the  Mfc  output  variable 

ACCGS (M) 

Acceleration  in  g's  (except  pitch)  of 
the  M*-“  output  variable 

ACCMAX (M) 

Maximum  acceleration  of  the  M™  output 
variable 

ACCMIN(M) 

Minimum  acceleration  of  M*"*1  output 
variable 

SUMRMS (M) 

_ACCGS  (M)_  2  for  RMS 

RMS  (M) 

I  [ACCGS  (M)J  2  /t  RMS  of  Mth  output 
variable 

LEN 

Read  in  values  for  various  length  para¬ 
meters  of  vehicle.  These  lengths  repre¬ 
sent  different  dimensions  in  various 
vehicles.  (See  the  individual  vehicle 
for  the  use  of  a  particular  LEN) 

MASS (I) 

Mass  of  the  I^1  axle 

H 

RKG  step  size  (seconds) 

T 

Time  (sec) 

DELTAT 

Increment  of  time  (sec) 

DELTAL 

Increment  of  length  between  profile 
points  (in.) 

VELIPS 

Vehicle  velocity  (ips) 

VELMPH 

Vehicle  velocity  (mph) 

NSTEPS 

Number  of  steps  in  RKG  for  each  DELTAT 
(Lt/H) 
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Variable 

Description 

YIN 

Next  profile  input  (in.) 

DRVMAX 

Maximum  vertical  acceleration  of  driver 

DRVMIN 

Minimum  vertical  acceleration  of  driver 

ABSPWR 

Absorbed  power  (watts)  of  driver 

DRIVER ( 1) /DISDRV 

Displacement  of  driver  (in.) 

DRIVER ( 2) /VELDRV 

Velocity  of  driver  (in.) 

DRIVER ( 3 ) / ACC DRV 

Acceleration  of  driver  (g's) 

DRIVER (4) /RMSDRV 

RMS  of  driver  (g's) 

IOPT ( 1) /IFPWR 

"Yes"  for  absorbed  power 

IOPT (2) /IFFILE 

"Yes"  for  output  file 

IOPT (3) /IFPACC 

"Yes"  for  peak  acceleration 

IOPT (4) /IFDRV 

"Yes"  for  driver  motions 

IOPT  ( 5)  /IFRMS 

"Yes"  for  RMS 

IOPT (6) /IFINPT 

"Yes"  for  external  input 

NY 

Number  of  profile  points  needed  to  run 
complete  length  of  vehicle.  &L*NY  = 
length  of  vehicle  in  inches. 

IDF 

Number  of  degrees  of  freedom  (number  of 
second  order  differential  equations) 

N AXLES 

Number  of  axles  for  vehicle 

NSEGS 

Number  of  segments  in  each  segmented 
wheel 

IFHORZ 

0  =  No  horizontal  equation,  1  —  horizontal 
equation 

FNAME 

Name  of  output  file 

FMASS 

Mass  of  main  frame  of  vehicle 
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Variable 

INRTIA 

HORMOM 

VEHQID 
FID 
I  OPT 
DRIVER 


Description 

Pitch  inertia  of  sprung  mass 

Sum  of  the  moments  due  to  axles  about 
center  of  gravity 

Name  of  vehicle  being  run 

Identification  of  input 

Program  options  (see  individual  options) 

Driver  variables  (see  individual 
variables) 


THE  FOLLOWING  VARIABLES  ARE  USED  BY  THE  MAIN  PROGRAM  ONLY 


IYES 

1HY 

NO 

1HN 

IBELL 

Rings  TTY  bell  upon  completion 

of 

test 

SDVRMS 

2I(ACCDRV)2,  summation  to  compute 
rms 

driver 

JSTOP 

1  =  go,  2  =  stop  main  program 

NSTOP 

Program  terminates  after  NSTOP 
subsequent  to  JSTOP  becoming2 

steps 

TPRINT 

Controls  TTY  printout  time 
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Main  Program  FIVEYP  (Fig.  C2) 

The  program  which  controls  the  calling  of  all  subroutines 
is  called  FIVEYP.  As  the  main  program  starts,  the  mid-points 
of  the  various  stem-diameter  classes  of  vegetation  are 
calculated.  This  is  necessary  because  the  data  presented  in 
the  data  blocks  consist  only  of  the  maximum  points  of  each 
of  these  classes.  (It  was  necessary  to  have  the  data  in  this 
form  because  they  are  used  in  this  form  later  in  subroutines 
AREAV  and  VEGF.)  When  this  is  completed,  the  program  proper 
begins . 

First,  a  call  is  made  to  the  terminal  to  determine  the 
vehicle,  the  geographic  area  and  the  season  for  which  cal¬ 
culations  will  be  performed.  Next,  the  subroutine  INPUT  is 
entered.  Subroutine  INPUT  calls  the  particular  vehicle  data 
file  and  loads  all  its  data  into  the  appropriate  variables 
for  later  use.  Then,  the  variable  ISNI  is  created;  it  has 
the  value  1,  2  or  3 ,  depending  upon  whether  the  season  is 
dry,  average  or  wet.  Next,  a  check  is  made  to  see  if  the 
vehicle  has  a  standard  or  an  automatic  transmission.  If  it 
is  standard,  subroutine  STICK  is  entered,  and  an  array  F0RCE 
is  calculated.  This  array  contains  vehicle  speed  versus 
tractive  effort  on  a  solid  surface,  and  has  101  elements, 
representing  0  to  50  mph  in  0.5-mph  increments.  If  the 
transmission  is  automatic,  subroutine  AUT0F  is  entered 
instead  of  subroutine  STICK,  and  the  array  F0RCE  is  calculated 

Next,  the  major  part  of  this  program  is  entered.  In 
this  portion,  the  data  for  each  patch  are  determined,  and 
several  other  subroutines  are  called  to  determine  the  speed 
over  that  patch.  Each  patch  is  handled  independently. 

First,  the  data  relating  to  class  intervals  for  one 
patch  are  read.  The  variable  IGR  is  checked.  If  this 
variable  is  equal  to  0,  the  patch  is  a  marsh;  if  it  is 
greater  than  0,  the  patch  is  "normal" .  If  the  patch  is 
normal,  the  calculation  proceeds  and  a  check  is  made  on 
variable  1ST.  This  is  the  soil  type,  which  can  be  either 
fine-grained  or  coarse-grained.  Depending  on  this,  either 
subroutine  F0IL  or  subroutine  C0IL  is  called.  A  check  is 
first  made  to  determine  if  the  soil  and  slope  are  the  same 
as  for  the  previous  patch;  if  so,  this  call  is  bypassed. 
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Within  these  subroutines  the  array  F0RCE  is  modified  by 
slippage  of  the  track  or  wheels  in  the  soil,  and  the  new 
array  F0RCR  is  created.  This  array  contains  the  actual 
vehicle  speed  versus  soil-dependent  tractive  effort.  Once 
this  array  is  determined,  another  check  is  made  within  the 
subroutine  to  determine  whether  the  soil  is  immobilizing  the 
vehicle?  i.e.,  whether  the  maximum  tractive  effort  is  positive. 
This  is  stored  in  variable  IG0.  If  IG0  returns  as  0,  the 
vehicle  is  immobilized,  and  the  speed  in  this  patch  is  set 
to  0.  If  IG0  is  1,  the  vehicle  can  successfully  negotiate 
the  soil,  and  a  call  to  subroutine  PATCH  is  made.  Subroutine 
PATCH  calls  several  other  subroutines  to  calculate  various 
resistances,  avoidances,  overriding  of  obstacles,  vegetation, 
slopes,  vision  and  other  elements.  Returning  from  PATCH  is 
a  limiting  speed  for  this  patch  type  in  variable  VEL0C.  This 
is  loaded  into  array  V  and  a  return  is  made  to  read  data  for'" 
the  next  patch. 

If  the  patch  is  a  marsh,  instead  of  a  normal  patch, 
control  is  transferred  to  another  portion  of  the  program. 

The  soil-dependent  tractive  effort  versus  speed  curve  must 
be  determined  here  too;  and  depending  upon  variable  1ST, 
the  soil  type,  either  subroutine  F0IL  or  subroutine  C0IL  is 
called,  and  this  array  is  calculated.  Also,  variable  IG0 
returns  from  F0IL  or  C0IL.  If  IG0  is  0,  the  vehicle  is 
immobilized  in  the  soil,  and  array  V  is  set  to  0  and  a 
return  is  made.  If  the  vehicle  is  not  immobilized,  subroutine 
MARSH  is  called.  As  with  PATCH,  subroutine  MARSH  calculates 
the  resistances,  avoidances,  etc.,  for  the  terrain  elements 
in  this  marsh,  and  the  variable  VEL0C  is  returned  containing 
the  limiting  speed.  This  is  loaded  into  array  V,  and  a 
return  is  made  to  read  additional  patch  data. 

The  last  line  in  the  patch  data  file  contains  a  check 
that  allows  an  exit  from  this  file.  The  check  is  made  on 
variable  I0BAA.  If  this  variable  is  negative,  the  patch 
file  is  closed.  This  last  line  will  be  the  only  one  in 
that  file  with  a  negative  element  in  this  location. 

The  river  data  file  is  then  opened.  A  loop  is  entered 
to  calculate  the  time  penalties  associated  with  crossing  each 
river  type.  First,  the  various  river  data  are  calculated 
from  the  class  intervals  indicated  in  the  data  file.  These 
data  are:  water  speed,  WS?  water  depth,  WD:  bank  angle,  THI ; 
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bank  differential  height,  BD;  banjj  height  in  ingress,  BHI ; 
and  bank  height  in  egress,  RBH.  Also,  the  egress  bank 
anble,  RBA,  is  calculated,  and  the  number  of  distinct  slopes 
on  the  egress  bank,  NEX.  For  the  AMC  71  Model,  NEX  is 
always  1.  Finally,  the  river  width,  RW,  is  calculated. 

Then  subroutine  RIVER  is  entered.  The  time  penalties 
associated  with  crossing  the  river  with  ingress  and  egress 
os  the  river  are  calculated  within  this  subroutine.  These 
return  from  the  subroutine  as  variables  TP  and  TN,  and  they 
are  loaded  into  arrays  VR  for  river-crossing  time  and  TPR 
for  river  ingress  and  egress  time  penalty.  This  is  performed 
successively  for  each  river  type.  The  last  line  in  the 
river  data  file  is  an  exit  line?  and  when  this  is  reached, 
an  exit  is  performed  to  a  later  part  of  the  main  program. 

Three  arrays  are  filled  now:  V  for  the  average  speed 
calculated  for  each  patch  type,  VR  for  the  time  penalty 
associated  with  crossing  each  river,  and  TPR  for  the  time 
penalty  associated  with  ingress  and  egress  from  each  river. 

The  next  part  of  the  program  calculates  the  percentage 
of  patches  in  which  the  vehicle  is  constrained  to  certain 
speed  ranges.  These  ranges  are:  0  (immobilization),  0  to 
2,  2  to  4,  4  to  6,  6  to  8,  8  to  10,  and  greater  than  10  mph. 
This  information  is  loaded  into  array  PC,  and  this  array  is 
printed  by  the  terminal. 

Subroutine  0UTPT  is  entered  next.  This  prints  the 
various  vehicle  data  that  were  calculated  in  earlier  sub¬ 
routines  of  the  program.  Next,  subroutine  R0UTE  is  entered. 
This  subroutine  takes  the  arrays  V,  VR,  and  TPR  and  calculates 
the  best  route  through  the  map.  Subroutine  VWRT  is  then 
entered  and  the  arrays  V,  VR,  and  TPR  are  written  into  an 
external  file  for  later  manipulation,  if  required.  This 
file  is  named  VELFIL  within  the  program.  Later,  when  the 
program  has  been  run,  this  file  will  be  called  up  and  given 
a  new  name  to  identify  it  with  the  specific  vehicle.  This 
is  the  last  thing  accomplished  in  the  main  program;  and  at 
this  point,  the  run  is  complete. 
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MAIN  PROGRAM 


VARIABLES  INITIATED  BY  DATA  BLOCK  I  IDRY, 
IAVE,  1WET,  RD  (&)  ,  NSDC,  NSSC,SDlC8>,  SVCS), 

0HC7'),  0WC5),0L(t),  0SC81),  AACl4-),RCICCll'), 

SLCC8),WSCC5>,WDCC'4),"TPICCiO),  BDCC9)7 

RWC  CZ4\  ISRCC9),  XFE  AT^5> 


VARIABLES  ENTERING  THROUGH  COMMON  : 
V  SS  ,  W  D ,  ITRAN  ,  AV,  DWX 


XGRX  =  lOO 
ISTX=  100 
IRCX=100  jI=x+i 
xi=o.  I 

rq=i 


sdCi) = Cx  1+ sdl  Ci))/2 . 
xi  =sdlCi) 


msdc 


X  FILE  0}  =  TFEAT(T) 
XFILECC')-  IMAP 


READ 


/ VEHrCL, 

[  IMAP, 

\  ISEAS  t 


VEY-iXCL 


TEA.sXfS 


TSNl=  1 


TERM. 

OR 

v  CAROS 


in  put 


N  1  =  2. 


:ini=5 


STICK 


AUT0F 
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VARIABLES  LEAVING  THROUGH  COMMON:  SVClO'), 
RD  C <LCf) 7  SD(flO)?  N SDC ,  N  SS C,  SDL  Cl<3),  0S  £lO) ,  AA02O)7 
(zshCio'),  0lCio>7  slcCio),  isrcC2.o>,  RCI,  ’ 

WS,  WD,THI,  BHI,RW,  TANP,  C,NEV,  RBhCs>7 RBA(i5>7 

iv(ioftb),  vr(ho),tpr  0-*o) 


Fig.  C2  cont'd 
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1 


FREP 


1C  AMC  71  MOBILITY  M0DEL  --  MAIN  PR0GRAM 
PC 

3 C  FOR  INFORMATION  C0NTACT: 

4C 

■5C  J3HN  EILERS 

SC  U  S  ARMY  TANK-A  UT0M0TI VE  C0MMAND 

■  7C  •  AMSTA-RURV 

SC  WARRDN.  MICHIGAN  48090  PH0NE:  1-313-573-1445 

9C 

■  1OJ0VR,  INPUT 
i  1  $OVR  ,AUT0F 
1280V/R , STICK 
1 3  TOVR ,  F0I  L 

1 4T0VR ,  COI L 
1 5S0VP  , PA TCH 
1 S$3V$, MARSH 
1 7S0VR, RIVER 
18S3VR, ROUTE 
19$3VR  ,  VWRT 

110  C3MM0N  SV(IO) ,RD(10) ,SD(10) , NSDC ,SDL ( 1 0) ,NSSC,0S(1O) , 

IPO  3c  AA(20)  ,3W(10)  ,0H(1O)  ,0L(1O)  ,SLC(  10)  ,  I  SRC (20)  ,IS(10)  ,IREC, 

1 30  &  I0BL,I03W,I0B5,I0BH,I0BAA  ,1  GR,IPR,IRCI  (3)  ,  I  ST  ,  I  0ST  fSDS  (  1  0)  , 

140  3.  XMT(IO)  ,S(10)  ,  F0RCE (2 ,101)  ,  F0RCR  (4,101)  ,F0RMX(3)  ,TF0R(3)  , 

1 50  3  RT,RCI  ,  NVEH ,  NFL, GVW , DL , WI D , GT , A , NBC , GC ,HPT , I TVAR ,R  DI  AM , 

1 SOi  TPSI , TPLY.HS , WC,SAI , A  WPKF,GCA  ,  VSS  ,  NCREV,  FD,  VFS  ,  TNE1 (2,30) , 

1  70  3-  TIM  (2, 30)  ,  TTF(2 ,30)  ,GR(10)  ,  M3  ,  TC  ,RR  ,  FDR  ,  EFF  ,  FDR  EF ,  I  TRAN  , 

1^05  I VFL , NC 1 , NC2 , NC3 , ENTCG , L0K UP , V03B (2 , 30) ,VRIDE(20) ,W,PBHT, 

IPO  3  PB F , VL , M C 4 , M C5 , H , 8E W , 3BA A ,XLT,HB ,A V,RDC , VDA ,CGF,CGH , DWX , 

200  3,  RW1  ,ACG,DCG,KC,RW,ws  ,l«'D,THI  ,BHI  ,R  W ,  TA  NP ,  C  ,  NEX  ,RBH  ( 5)  , 

210  3,  RRA(5)  ,10(1080)  ,VR(1  10)  , TPR  (110)  ,XBR 

220  DIMENSI0N  RCICC15) ,WSC(10) ,WDC(10) ,THIC(10) ,BDC(10) 

230  DIMENSION  PC  ( 1  0  )  ,R  WC  ( 25) 

235  DIMENSION  I  FI LE(2) , I FEAT( 5) 

240  INTEGER  VEKI CL (2) 

O  £  C\  rt 

2 50  DATA  I  DRY/" DRY"  / 

2 51  DATA  IAVE/"AWF.“/ 

2  62  DATA  I  WET/ "WET"  / 

■210  DATA  (RD(I)  ,1=1  ,9)  / 1 64 . , 1 2 1 . , 59 . ,3 4 .8 ,24 . 6 , 1 7 . 4 , 1 2 . 5 , 7 . 5 , 

2*03  2.6/ 

290  DATA  NSDC.NSSC, (SDL(I) ,1 =1 ,8) 

300  3,  /p,*,  .98,2.3  6,3.9  4, 5.51  ,7.09,8.66,9.84, 15./ 

310  DATA  (SV(I)  ,1=1  ,8)  /3 00 . , 65 . 6 , 5 1 .2 , 3 1 . 5 ,22 .3 , 1 5 . 7 , 1 0 .8 , 3 .9/ 

320  DATA  (0H(I) ,1=1 ,7)  /3 . 1 5 , 7 .87 , 1 1 .8 1 , 1 5 . 75 ,20 .87 ,28 .3 5 , 

330  3<  33.46/ 

340  DATA  (0W(I) ,1=1 ,5)  /I 1 .8 , 3 . 48 ,2 . 49 , 1 . 5 1 , . 4S/ 

350  DATA  (  2L( I )  , I  =1  ,  7)  /. 66 ,2 .3 6 , 5 .25 , 8 . 53 , 1 5 . 09 ,25 6 . , 492 ./ 

360  DATA  (0S(I)  ,1=1 ,8)  /I 97. ,  1 31  . , 51 .2 ,3 1 . 5 ,22 .3 , 1 5 .7 , 1 0 .8 ,3 .9/ 

370  DATA  (AA(I)  ,1  =1  ,  1  4)  / 1  79 . ,  1 8 1  . ,  1  77 . ,  1 83 . ,  1 73 . ,  1 87 . ,  1 S4. , 1 9 S . , 

3  8  0  3  154. ,206. ,142. ,218. ,112. ,248./ 
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This  Page  emitted 
(C-IA) 


2 


FREP  CONTINUED 


390 
■400  A 

410 

420 

430 

440 

4504 

450 

470  & 

490 

49  0  4 

5004 

510 

515 

5?  0  C 

521 

:522 

525 

52  5 

52  7 

530 

540 

550 

550 

570 


DATA  (ECIC(I)  ,1=1  ,1  1)  /300., 250. ,190. ,130. ,80. ,50. ,36. ,29. 

20. . 14.  ,5./ 

DATA  (SLC(I) ,1=1  ,F)  / 1 . ,3 .4, 7.5 , 1 5 . ,30 . , 50 . , 65 . , 72 . / 

DATA  (WSC(I) ,1=1 ,5)  /0., 1.54, 4. 92, 9. 02, 11, 48/ 

DATA  ('a'DC(I)  ,1=1  ,4)  / 1  .  54 , 4 .92 , 1  1  . 49 , 1  5. 4/ 

DATA  CTHIC(I) ,1  =1  ,  10)  /2 . 5 , 7 . 5 , 1 5 . ,25 . , 35  .  , 45 . , 62 . 5 , 

75  •  82 .5  87.5/ 

*DA  TA  (EDO (I) ,1=1 ,9)  /O. ,-1.54,-4.92, -9. 24, -13. 12, 

1 .54,4.92,9.84,13.12/ 

DATA  (RWCCI) ,1 =1 ,24) /O . , 4.9, 14. 8,24. 5,34.4, 44. 3, 54.1 ,64., 

73. 8.83. 7. 93. 5. 10 6. 5. 123.,  139. ,155.,  1  72.,  189.,  205., 

221  .5, 237. 9, 254. 3, 270. 7, 207.,  303. 5/ 

DATA  (  I  SRC  ( I  )  ,1=1  ,9)  / 1  2 , 3  4 , 5 , 6  7  8 , 9/ 

DATA  I  FEAT/^PCH**  ,  H20"  ,  SEC  ,  MSH  ,  RIV"/ 

NPATCH  =0 
NRI VrO 
I GRX  =100 
ISTX  =  1 00 
IRCX  =  1 00 
XI  =0. 

DO  4  1=1  ,MSDC 

SD(  I ) =(XI+SDL(I))  /2. 

XI  =SDL(I) 

4  CONTINUE 


580  3  CONTINUE 

600  PRINT  201 

610  READ  100, VEHI CL 

520  CALL  LIMX(3,"0INPUT") 
530  CALL  INPUT(VEHICL) 


631 

632 

633 
53  4 
635 
53  6 
63  7 
540 
650 
560 
.570 
58  0 
6^0 
70  n 
710 
720 
730 
740 
745 
750 


PRINT  500 

500  F0RMAT<"  ENTER  GEOGRAPHIC  AREA"/) 
READ  501  , 1  MAP 

501  FORMAT  (A3) 

IFILF(l)  rlFEAT(l) 

I  FILE (2)  =1  MAP 

CALL  0PENF(2 ,1  FILE) 

PRINT  202 

READ  100, 1  SEAS 

IF  ( ISEAS-I DRY) 9  1  ,90,91 

90  I SNI = 1 
G3  TO  94 

91  IF  (ISEAS-I  WET)  93  ,92,93 

92  I SNI =3 
GO  TO  94 

93  I SNI =2" 

94  IF  (ITRON)l  ,1  ,2 

317  FORMAT  (  41  4  ,  F6 .0,  F4 .2  ,  F9 .0) 

1  CALL  LI NK ( 4, "OSTI CK  ) 

CALL  STICK 


f 
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i 

jFREP  C0NTINUED 


750  G0  T0  22 

>65  2  CALL  LI  NK( 5  , ** OA  UT0F" ) 

770  CALL  AUT0F 
;780  G0  T0  22 

790  21  NPATCHrMPAT 

795  10=1 

79  6  I  GRX  =1  GR 

79  7  ISTX  =1  ST 

798  IRCX=IR 

800  22  CONTINUE 

!«10  READ  (2,101)  NPAT, 1ST,  (IRC  I  (J)  ,J  =  1  ,3)  ,IGR  ,1  0BAA  ,  1 0BH , 

720&  I0BW,I0BL,I0BS,I0ST,IPR,(IS<I>  ,1  =1  ,NSDC)  ,IREC 

725  I  F(  I  GRX  .EQ.IGR.AND.ISTX»EQ.IST»AND.IRCX.E0.IRCI(ISNI))IQ=O 

>30  101  F0RMAKI4, 412, II  ,12,1511) 

740  IF  (IGR.GT.O)  G0  T0  99 

750  IRrIRCI  (ISNI) 

,8  SO  RCIrRCIC(IR) 

770  WD=WDC ( I  0BS) 

780  IF  (FD.GT.WD)  G0  T0  63 

790  IV(NPAT)  =IFIX(VSS*1000.) 

!900  G0  T2  21 

905  63  IF(IO.EO  ,O)G0T0  66 

•910  I  FdST.GT.  1 )  G0T0  64 

920  CALL  LINK(3,"OF0IL") 

:930  CALL  F0IL(O.O,IG0) 

940  G0  T0  66 

‘950  64  CALL  LI  NK  (3  ,  “  OC0I L"  ) 

1955  CALL  C0I L (0  •  0 , 1  G0) 

960  66  IF  (IG0)  57,67,68 

;9 70  67  IV(NPAT  )  =  0 

975  G0T0  21 

9  77  68  IF(I0.EQ.O)G0T0  110 

■980  CALL  LINK(3,"0MARSH“) 

990  110  CALL  MARSH (VEL0C) 

1000  IV(NPAT)  =IFIX(  VEL0C*  1000.) 

4010  G0  T0  21 

4020  99  IF  ( I 0BAA) 20 ,10,30 

1030  20  CALL  CL0SEF(2) 

1040  CALL  LINK(3,"0RIVER") 

,1050  IFILE(l)  =IFEAT(2) 

,1051  CALL  0PENF(2 , 1  FI  LE) 

4060  G0T0  50 

4070  58  NRI  V  =  NPAT 

1080  50  READ  (2,59)  NPAT,  NISC  ,  NBDC  ,  NESC  ,  NR  VC  ,NWDC  ,  NWV 

1090  IF  (NPAT)  10,10,60 

4  100  59  F0RMATU3, 12, II  ,212,211) 

4110  SO  WS=WSC(NWV) 

4120  VD=WDC(  MW  DC) 

1130  THI =THIC(NISC) 

4  140  BD=3  DC(NBDC) 
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4 


FREP  CONTINUED 


:1  I  50  IF  (BD)  51  ,51,52 

11  SO  51  BHI  -WD-B  D 

1 1  70  RBH(1)=WD 

4180  00  T0  53 

1190  52  BHIrWD 

1200  RBH(1):WD+BD 

1210  53  RBA ( 1 ) =THI C(NESC) 

1220  NEX  =1 

1230  RWrRWC(NRWC-) 

12  40  CALL  RI VER < A V , DWX ,  TP  ,  TN  ) 

1250  VR  ( NPA  T  =  TN 

1260  TPR(NPAT)=TP 

112  70  00  T0  52 

1220  30  IRrlRCI(ISNI) 

1290  RCI=RCIC(IR) 

1295  IF(IQ.EQ.O)60T0  38 

1300  IF(IST.GT*1)G3T3  37 

1310  CALL  LINK(3,"OF0IL“) 

1320  CALL  F3I L(3LC( I GR ) , I G0) 

1330  G3  T0  38 

1340  37  CALL  LI NK(3 ,“OC0I L" ) 

1345  CALL  C3IL(SLC(IGR) ,1 G0) 

1350  38  IF  (160)32,32,33 

1  3 GO  32  IV(NPAT)=0 

13  70  G0  TO  178 

1375  33  I F( IQ .EQ .0) GOTO  111 

1380  CALL  LINK(3,"0PATCH") 

1390  111  CALL  PATCH(VEL0C) 

1400  IV(NPAT)  =1  FIX  (  VEL0C*  1 000  .) 

1410  178  CONTINUE 

1430  G0  T0  21 

1440  201  F0RMATC"  ENTER  VEHICLE  NAME"/) 

1450  10  T0T=O.O 

MSO  D0  7 S  J=2,6 

1470  PC(.J)=0.0 

1480  JL  =  (  J*2-4)  *  1  000 

149  0  JH=JL+2.000 

1 500  D0  75  I  =1 , NPA TCH 

1510  IFCIV(I)  .LE.JL)  G0T0  75 

1520  IF(IV(I) ,GT,JH)G0T0  75 

1530  PC(J) =PC(J)+1 . 

1540  75  CONTINUE 

1550  T0T=T0T+PC(J) 

1  5 SO  7G  CONTINUE 

1570  PC(1)=0.0 

1  580  D0  77  1=1  ,  NPA  TCH 

1590  I F( I V( I ) ) 78 , 78 , 77 

1  GOO  78  PC(1)=PC(1)+1 , 

1  SI  0  77  CONTINUE 

1  S20  PC (7)  =FL0A  T(  NPATC.H)  -  TOT  -PC(1) 
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FREP  CONTINUED 


1530  D3  79  1  =1  ,7 

1540  PCCI)  =PC(I)/FL0AT(NPATCH)  *100. 

1550  79  CONTINUE 

1  550  PRINT  80 ,  (PC(I )  ,1=1  ,7) 

1  570  21  1  F3RMAT  (I5,4X,F7.1) 

I 6C0  100  F0RMATC2A3) 

1590  CALL  CL0SEF(2) 

1700  CALL  LINKC3,"0R3UTE") 

1710  CALL  R0UTECIFI LE,I FEAT) 

1720  CALL  LINK(3,"0VWRT”) 

1730  CALL  VWRT(NPATCH ,NRI V) 

1740  80  F0RMATC ///"  PERFORMANCE  BY  NUMBER  0F  PATCHES”// 

1  750*  7(2X,  F5.1  7.  ") /3X. "O.O" , SX,"0  T0  2".4X,"2  T0  4",4X, 

1750*  "4  T0  5",4X,"5  TO  8  ,3X,"g  T3  10”,5X,  >  10”, 

1770*  /15X,  VELOCITY  RANGE--MPH  ) 

1780  202  F0RMAT("  ENTER  SEASON:  DRY,  AVE,  0R  WET?"/) 

1790  END 
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Subroutine  INPUT  (Fig-  C3) 

Subroutine  INPUT  reads  in  the  vehicle  data  required  by 
the  program  from  the  vehicle  data  files.  See  the  discussion 
of  data  files  for  details. 
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SUBROUTI 


INPUT 


GVW,DL,WID,' 
GT,  HPT,  GC, 
NEC,ITVAR 


/  Tu.PEC,  \ 

(  VAA,R.E.C,  VDA;/*- 


\  CGF,CGH 


MCREW,V* 
m  Fi—  y 


/rdiamA 

\  TP5I,  V* 

\  TPLY  / 


VEHXCL 


VARIABLE  LEAVING:  NVEH,  NFL  ,  GVW,  DL,W  ID,  GT7  A, 
NBC,  GC,  HPT,  ITVAR,TP5I,TPLY,  R3,  WC,5AI,AWPKF, 
GCAjVoC,  NCREW,  FD,  VFS,  TNElC2,30'),TTMC'2,3C>), 
TTE  Cc,"60^,  GRClO),  NG,TC,  RR,  FDR,  EFF,  FDREF, 
ITRAM,NC1,  NCZ,NCS,  ELNTC.G,  L£KUP,  V00BC2,  30), 
VRXDE(eO),  W,  PERT,  PBF,  VL,  NC4,  NC5,TL,FF.C,VAA, 
RFC.,VDA,CGF,  CGH,  GWS,  RW,  ACG,  DCG,HC,RWW,  XBR  , 
RDIAM 


Fig.  C 3  cont'd 
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I  NPUT 


too  SUBROUTINE  INPUT(VEHICL) 

11  n  CimW  I  PATCH  (325)  ,  F3RCEC2 ,101)  , F0RCR (4 , 101 )  ,F0RMX<3)  , 

1 20  A  TFflR ( 3 ) ,R T,RCI , NVEH , NFL , GW , DL , WI D , GT , A , NBC , GC , HPT , I TVAR , 
130  5-  R  DI A  X ,  TPS  I  ,TPLY  ,HS  ,WC  ,SAI  ,AWPKF,GCA  ,  VSS  ,  NCRD'<>,  FD ,  VFS  , 

I  40 i  TNE1 (2,30) ,TT"i(?,30) ,TTE(2,30) ,GP(10) , NG, TC ,RR ,FDP , EFF, 

1  50  &  FD»EF,ITRAN,IVFL,NC1  ,  NC2  ,  NC3  ,  FN  TC  G ,  L*K  UP  ,  V00B  <2 ,30)  , 

1  <0  4  VRI  DE(20)  ,  W ,  PRH  T ,  PBF  ,  VL  ,  NC  4  ,  NC  5  ,  H ,  ><fB  ,  A  A  ,  TL ,  FEC  ,  VAA  ,  PEC  , 
170  -.?■  VDA  , C « F , CCH  ,  G'-'S , P  w ,  A C G  , DC G , H C  ,R  WW ,  I  DUMWY (  1  555)  ,XBR 
120  INTEGER  VEHICLE?) 

1  c0  PID=3.1 41  592C5/170. 

v00  CALL  0PEMF( 1 , VEKICL) 

ojo  REAR  (1,100)  NVEH, I  TRAN 

290  R  DA  D  (1,101)  GVW  , DL , VI D , GT , A  ,  HP  T  ,  CC  ,  NBC  ,  I  TV'3  R 

230  READ  (1,102)  TL  ,  FEC  ,  VAA  ,R  EC  ,  VDA  ,CGF  ,CGH 

.2  40  READ  (1,102)  GVS ,RW,  ACG ,  DCG, HC  ,R WW 

250  READ  (1,102)  HS,  WC  ,SAI  ,A  VP5CF,  GCA  ,  FD,  VSS  ,  VFS 

2 SO  READ  (1,100)  NCREW , NFL 

970  I F(MVEK) 4,4,3 

9*o  3  READ  (1,102)  RDIAM,TPSI  ,TPLY 

'2Q0  4  READ  (1,103)  W ,  PPH  T  ,  P3  F ,  VL ,  XBR 

500  READ  (1,10  4)  NC4 ,  (  V33BC  1  , 1 )  , V00B ( 2 , 1 )  ,1-1  ,  "C  4) 

310  READ  (1,105)  NC5  ,  (  VRI  DE( I )  ,  I  =  1  ,  NC5) 

320  READ  (1,102)  RR ,  FDR  ,  F.FF ,  FDREF 

330  READ  (1,100)  NG  ,  (  GR  ( I )  , I  =  1  ,  NO 

3  40  T  F( I  TRAN)  5,5,6 

7  50  S  READ  (1,107)  TC  ,  ENTCG  ,  L0X  UP 

300  READ  (1,104)  NCI  ,  ( T  N  E 1  ( 1  , 1 )  ,  TN  E 1  ( 2 , 1 )  ,1  =  1  ,  NC  1 ) 

370  READ  (1,104)  NC2  ,  (TTX(  1,1)  ,TTM(2 ,1)  ,1=1,  MC2) 

320  5  READ  (1,104)  NC3  ,  (  TTE (1  , 1 )  ,  TTE (2 , 1 )  , I  =  1  ,  NC3) 

32P  CALL  CLRREE  (i) 

400  ACC=A.CC*PID 

419  VAA = VAA* PI D 

ho  n  PR  rRp / 1 p  . 

430  VL=VL/12. 

4 /; n  / 1 2  • 

450  FD=FD/1 2 . 

4<n  VDA  =  '/DA* PI  D 

4  70  SAI=SAI*PID 

■4t»Q  100  FOP  MAT  (21  3) 

490  101  FORMA  T( F7,Q , 5F7 ,2  f 2  T3) 

50 n  102  F0RVAT(2F7.2) 

510  103  FDRXAT(  5F°  .  1 ) 

520  104  F3? EA T ( I  3  / ( 2 FOO  , 3 )  ) 

530  105  F7P MA T ( I  3 /?  F 7 . 2 ) 

5 AO  19  9  F9RMAT(I3/(5F7.4)) 

550  107  FO p YjA T (  2 F7 , 3 , 1 3  ) 

540  RETURN 

570  FMD 
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Power  Train  Submodel 


Basic  .limitations  to  vehicle  performance  are  set  by 
the  maximum  tractive  force  that  can  be  transferred  by  the 
driving  wheels  to  the  ground.  In  direct  drive,  which 
accounts  for  the  majority  of  current  applications,  the 
engine  is  coupled  through  a  transmission  directly  to  the 
driving  axle.  The  transmission  can  be  mechanical,  as  with 
a  gear  shift,  or  hydraulic.  A  hydraulic  transmission  can 
also  include  a  torque  converter. 

The  gasoline  engine  starts  to  run  smoothly  at  a  cer¬ 
tain  minimum  idle  speed,  NEMIN,  and  produces  excess  power 
at  speeds  above  this  point.  Optimum  combustion  quality, 
and  therefore  maximum  effective  pressure,  is  reached  at  a 
medium  engine  speed  where,  as  a  result,  maximum  torque  is 
developed.  As  speed  increases  further,  brake  mean  effective 
pressure  deteriorates  because  of  the  rapidly  growing  losses 
in  the  air  induction  manifolds.  Torque,  therefore,  starts 
to  decline.  Power  output  is  in  the  nearly  straight-line 
proportion  with  speed  up  to  the  point  of  maximum  torque. 
Beyond  this  point,  the  rate  of  power  increase  falls  off 
until  the  maximum  power  output  is  reached.  Engine  speed 
increase  beyond  this  point  results  in  a  fast  decline  in 
power  output,  and  the  maximum  permissible  speed,  NEMAX,  is 
reached  quickly.  In  vehicle  applications,  this  point  is 
usually  set  just  above  the  maximum  power  output  speed. 
Vehicles  designed  for  traction,  however,  are  designed  to 
operate  at  much  lower  engine  speeds,  since  maximum  torque, 
and  not  power  output,  determines  performance  limits. 

The  function  of  the  transmission  is  to  transform  the 
torque-speed  relation  of  engine  output  into  a  form  that 
corresponds  more  closely  to  actual  driving  demands.  The 
transformation  is  performed  by  the  following  means: 

1.  By  the  transmission  alone,  in  the  case  of  a  manual 
gear-shift  transmission,  or  by  the  transmission  plus  a 
torque  converter.  There  can  also  be  a  gear  reduction  stage 
between  the  engine  and  the  torque  converter. 

2.  On  vehicles  requiring  extremely  high  torque  at  low 
speeds,  additional  gear  reduction  stages  are  usually  placed 
at  the  driving  wheels. 
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The  power  transmission  between  the  engine  output  shaft 
and  the  driving  wheels  involves  the  following  additional 
factors  as  power  consumption  elements: 

1.  ENTCE:  Engine-to-torque  converter  efficiency.  This 
power  consumption  originates  in  the  friction  between  the 
gears,  and  a  constant  value  of  97  percent  is  used. 

2.  EFF:  This  is  the  transmission  power  consumption 
originating  in  the  friction  between  the  gears  and  oil  churning 
losses.  A  value  of  EFF  corresponding  to  the  particular 
vehicle  under  investigation  is  used. 

3.  FDREF :  Final  drive  gear  efficiency. 

Differences  in  the  torque  characteristics  of  standard 
and  torque  converter  transmissions  require  modification  of 
techniques  for  calculating  tractive  forces.  The  gear-shift 
transmission  provides  positive  ratio  coupling  between  engine 
speed  and  vehicle  speed,  except  when  the  vehicle  starts 
from  a  standstill.  During  this  part  of  the  operational 
range,  the  clutch  slips  and  the  exact  speed  ratio  is  unknown. 
Transmission  and  final  drive  gear  reductions  multiply  engine 
torque.  Subroutine  STICK  is  used  for  the  case  of  a  vehicle 
with  a  standard  transmission. 

( For  an  automatic  transmission,  the  torque  ratio  of  the 
converter  reaches  maximum  at  stall  output  speed,  and  the 
ratio  gradually  falls  off  as  output  speed  increases.  The 
converter  eventually  acts  as  a  hydraulic  coupling  with  a 
1— to— 1  torque  ratio.  Speed  ratio  of  a  torque  converter  is 
zero  at  stall  conditions  -  when  the  vehicle  is  stationary 
and  the  engine  is  working  at  a  certain  predetermined  design 
speed.  As  the  vehicle  begins  to  move,  the  engine  speeds  up, 
first  very  slowly,  then  at  an  increasing  rate  until  the 
converter  becomes  a  coupling.  Characteristics  of  a  typical 
converter  appear  in  Figure  C4.  When  combined  with  the  reduc¬ 
tion  in  the  geared  stages,  the  plot  leads  to  a  complete 
graphical  equivalence  between  vehicle  speed,  engine  speed, 
converter  torque  ratio,  and  engine  torque  output.  Subroutine 
AUT0F  is  used  for  the  case  of  a  vehicle  with  an  automatic 
transmission  and  torque  converter. 
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Fig.  C4  -  Powerplant  and  torque  -  converter  characteristics 
for  truck  installation.  At  converter  stall  speed  (  =  0) , 

torque  ratio  peaks  at  2.1:1  and  engine  is  1400  rpm.  Plot 
at  lower  left  shows  speed  reduction  in  mechanical  stages  of 
the  transmission.  Transition  between  low  and  high  gear 
ratios  is  performed  at  vehicle  speed  of  8  mph. 
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Subroutine  STICK  (Fig.  C5) 


Subroutine  STICK  calculates  the  curve  of  theoretical 
vehicle  velocity  versus  tractive  force  for  a  vehicle  with  a 
manual  transmission.  Note  that  this  tractive  force  is 
defined  by  the  torque  transferred  from  the  engine  through 
the  transmission  to  the  final  drive  axle.  Limitations  due 
to  the  soil's  ability  to  support  horizontal  tractive  forces 
will  be  considered  later.  The  variables  entering  the  sub¬ 
routine  are  as  follows: 


1.  Array  TTE:  This  array  carries  points  on  the 
curve  of  engine  speed  versus  engine  output  torque. 


2. 

NC3: 

Indicates  the  number  of  points  on  the 

above  curve. 

3. 

NGs 

The  number  of  gear  ratios  in  the  trans- 

mission. 

4. 

GR(I) 

(1=1,  2.  .  .  NG) :  The  values  of  the 

gear  ratios. 

5. 

EFF: 

Transmission  efficiency. 

6. 

FDR: 

Final  drive  ratio. 

7. 

FDREF 

':  Final  drive  efficiency. 

8. 

RR: 

Rolling  radius  of  the  wheel  for  a  wheeled 

vehicle,  or  the  radius  of  the  road  wheel  plus  the  track 
thickness  for  a  tracked  vehicle. 


Variables  NEMAX  and  NEMIN  represent  the  values  of 
engine  speed  at  the  highest  and  lowest  points  on  the 
incoming  array  TTE. 

The  subject  subroutine  produces  array  F0RCE  (I,  J)  as 
will  be  explained  below,  which  will  carry  the  tractive  force 
versus  theoretical  vehicle  velocity  curve.  1=1  indicates 
tractive  force;  1=2  indicates  vehicle  velocity.  J  is 
incremented  from  1  to  101.  This  represents  vehicle  velocities 
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from  0  to  50  mph  in  0.5  mph  increments.  These  values  of 
velocity  are  now  loaded  into  the  second  column  of  the  array 
F0RCE.  The  values  in  the  first  column  of  array  F0RCE  (the 
column  representing  tractive  effort)  are  initiated  at  zero. 
This  column  of  the  array  will  carry  the  values  of  tractive 
force  corresponding  to  each  velocity.  These  tractive  force 
values  are  now  calculated  in  the  rest  of  the  subroutine. 

The  balance  of  the  subroutine  consists  of  one  long 
loop,  the  index  of  which  is  variable  NGEAR.  This  is  indexed 
from  1  to  NG,  NG  being  the  number  of  gear  ratios  in  the 
transmission.  The  tractive  force  value  is  calculated  for 
each  gear  ratio.  The  best  value  is  selected  and  overrides 
any  previous  value  calculated  in  an  earlier  pass  through  the 
loop.  On  the  first  pass,  all  calculated  values  are 
accepted  since  the  previous  values  had  been  initiated  at 
zero.  On  subsequent  passes,  new  calculated  values  may  or 
may  not  be  larger  than  previous  values. 

An  inner  loop  is  now  begun,  which  increments  velocity 
from  0  to  50  mph  in  0.5  mph  increments.  This  velocity  is 
carried  in  the  variable  VEL.  For  each  value  of  VEL,  a  value 
of  NT  is  calculated.  NT  represents  engine  speed  correspond¬ 
ing  to  vehicle  velocity  VEL,  corrected  for  the  gear  ratios 
of  the  transmission  and  the  final  drive,  and  corrected  for 
the  rolling  radius  of  the  wheel  or  road  wheel.  NT  is  then 
checked  to  see  if  it  lies  outside  of  the  range  of  available 
engine  speeds  (i.e.,  if  it  is  greater  than  NEMAX  or  less 
than  NEMIN) .  If  it  is  greater  than  NEMAX,  a  return  is  made 
to  the  top  of  the  inner  loop,  and  VEL  is  incremented  upward 
by  0.5  mph.  If  it  lies  within  the  range  of  available 
engine  speed,  subroutine  CURVE  is  called.  Returning  from 
CURVE  is  variable  TE.  This  is  the  value  of  engine  output 
torque  corresponding  to  engine  speed  NT.  It  is  derived  by 
interpolation  from  the  array  TTE. 

The  next  variables  calculated  are:  T0S,  the  trans¬ 
mission  output  speed  (the  engine  speed  NT,  divided  by  the 
transmission  gear  ratio) ;  and  T0T,  the  transmission  output 
torque  (the  engine  output  torque  TE,  times  the  gear  ratio*, 
times  the  transmission  efficiency).  Next,  the  corresponding 
tractive  force  at  the  ground  is  calculated.  This  is  variable 
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TRF;  it  is  equal  to  the  transmission  output  torque  times 
the  final  drive  ratio,  times  the  final  drive  efficiency, 
divided  by  RR,  the  rolling  radius. 

Next,  Jl  is  calculated.  This  indicates  the  current 
location  within  array  F0RCE .  It  corresponds  to  the  specific 
value  of  velocity  VEL.  TRF  is  now  compared  with  the 
previously  calculated  value  of  F0RCE  (1,  Jl) .  If  it  is 
greater,  it  overrides  this  previous  value  and  is  loaded 
into  F0RCE  (1,  Jl) .  If  it  is  smaller,  the  value  of  F0RCE 
(1,  Jl)  calculated  in  a  previous  pass  through  the  outside 
loop  is  retained.  When  the  calculations  for  each  gear 
ratio  are  completed,  the  array  F0RCE  contains  the  best 
tractive  effort  for  each  increment  of  vehicle  velocity. 

Finally,  the  variable  IVEL  is  set  equal  to  the  value 
of  Jl,  which  is  the  last  value  used  in  the  outside  loop. 

It  represents  the  maximum  vehicle  velocity  that  can  be 
achieved  and  is  dependent  upon  the  maximum  engine  speed 
available  in  the  highest  gear  ratio.  It  will  be  used  in 
calculations  in  subsequent  subroutines  as  the  upper  limit 
of  array  F0RCE .  At  this  point,  a  return  is  made  to  the 
calling  program. 
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SUBROUTINE  STICK 


VARIABLES  LEAVING:  TVEL  ,  FORCE  Cfc, lOl') 


Fig.  C5 
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1 


'stick 


11250  SUBROUTINE  STICK 

1250  DIMENSION  TNE1  (2,30)  ,TTM(2.,30)  ,TTEC2,30)  ,GR(10)  , F0RCEC 2 , 1  0  1 ) 

1270  REAL  NE,  NT,  NEMI  N  ,  NEMAX 

>1280  COMMON  I  PATCH  (325)  ,  FORCE ,  IS  01  L(  865)  ,TNEl  ,TTM,TTE,GR, 

Si  290  &  NG  ,  TC  ,RR  ,  FDR  ,  EFF,  FDREF  ,1  TRAN  ,1  VEL ,  NC 1  ,  NC2  ,  NC3  ,  ENTC G , L0KUP 
1300  F0RCE( 1 , 1 ) =0 . 

:1310  F0RCE(2,1)  =0. 

1320  D0  71  K=2, 101 

1330  F0RCE( 1 ,K) =0 • 

13  40  F0RCE(2.,K)  =F0RCE(2 ,K-1 )+0 .5 

1350  71  CONTINUE 

1350  NEMAX =TTE(1 ,NC3) 

'1370  NEMI  N=TTE(  1,1) 

1380  PI=3. 141  5926 

;1384  D0  140  NGEAR  =  1,NG 

>1385  VEL  =  -0.5 

:1386  1  61  VEL= VEL+0  •  5 

1390  IF  (VEL-50.) 162,162,140 

1400  162  NT=GR(NGEAR)*88.*VEL*FDR/(2.*PI*RR) 

1410  IF  ( NT- NEMAX) 120,120,140 

1420  120  IF  (NT-NEMIN) 1 61 ,121 ,121 

1 430  121  CALL  CURVE(NT, TE, TTE,30) 

1440  T0S=NT/GR(NGEAR) 

1 450  T0T=TE*GR(NGEAR)*EFF 

1  4 50  TRF  =  TE*GR(NGEAR)*EFF*FDR*FDR  EF/RR 

,1470  J1  =2.*VEL+1  .01 

.1  480  IF  (TRF-F0RCE(1  ,J1))  161 ,161 ,160 

U 490  1  60  FORCE ( 1 ,J1 ) =TRF 

1500  G0  TO  161 

SI  51 0  140  CONTINUE 

1  520  IVEL=J1 

.1530  RETURN 

1 540  END 
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Subroutine  AUT0F  (Fig.  C6) 


Subroutine  AUT0F  calculates  the  curve  of  tractive  force 
versus  theoretical  vehicle  velocity  for  a  vehicle  with  an 
automatic  transmission  and  torque  converter.  The  variables 
entering  the  subroutine  are  as  follows: 

1.  Array  TTE:  This  array  contains  the  curve  of 
engine  speed  versus  engine  output  torque. 

2.  Array  TNEl:  This  array  contains  the  curve  of 
torque  converter-speed  ratio  versus  converter  input  speed. 

3.  Array  TTM:  This  array  contains  the  curve  of 
torque  converter-speed  ratio  versus  torque  multiplying 
coefficient. 

4.  NG:  The  number  of  gears  in  the  transmission. 

5.  GR(I):  The  values  of  the  gear  ratios. 

6.  ENTCG:  The  gear  ratio  between  the  engine  and 

torque  converter.  This  pair  of  gears  is  sometimes  present 
to  match  the  optimum  operating  point  of  the  engine  with  the 
optimum  operating  point  of  the  torque  converter. 

7.  TC:  The  input  torque  at  which  the  torque 
converter  curves  are  measured. 

8.  EFF:  Transmission  efficiency. 

9.  FDR:  Final  drive  ratio. 

10.  FDREF :  Final  drive  efficiency. 

11.  RR:  Rolling  radius  of  the  wheel  or  road  wheel. 

12.  L0KUP:  A  variable  denoting  whether  a  torque 
converter  lockup  is  present. 

The  first  thing  checked  in  the  program  is  variable 
ENTCG.  If  this  variable  has  a  value  other  than  1,  there  is 
a  gear  ratio  between  the  engine  and  torque  converter,  ENTCG. 


The  efficiency  of  this  gear  is  arbitrarily  set  to  0.97.  The 
engine  speed  versus  engine  output  torque  curve,  TTE,  is 
modified  to  reflect  this  gear  ratio.  The  first  column 
carrying  engine  output  torque  is  multiplied  by  this  ratio 
and  by  the  efficiency.  Array  TTE  now  represents  the  speed 
versus  torque  relation  at  the  output  shaft  of  this  gear 
set.  Next  NEMAX  and  NEMIN,  the  highest  and  lowest  speeds 
of  the  input  shaft  of  the  torque  converter,  are  set  equal 
to  the  highest  and  lowest  points  of  the  first  column  of 
array  TEE.  Array  F0RCE  is  now  initiated.  The  first  column 
of  this  array  will  carry  the  values  of  tractive  force 
calculated  by  the  subroutine;  these  values  are  initiated  at 
zero.  The  second  column  will  carry  the  corresponding  vehicle 
velocities,  incremented  from  0  to  50  mph  in  0.5  mph  increments. 
These  velocities  are  now  loaded  into  the  second  column  of  the 
array. 

A  set  of  three  nested  loops  is. now  entered.  Within 
these  loops  the  tractive  force  values  corresponding  to  each 
velocity  increment  will  be  calculated,  if  the  torque  converter 
is  assumed  to  be  in  operation.  The  outer  loop  has  index 
NGEAR,  and  will  run  through  the  transmission  gear  ratios. 

The  second  loop  increments  velocity  from  0  to  50  mph  in  0.5 
increments;  this  value  is  stored  in  variable  VEL.  Next, 
initial  values  of  two  temporary  variables  are  established: 

FLAGM  and  FLAGP,  set  equal  to  the  minimum  and  maximum  shaft 
speeds,  respectively  (there  were  NEMIN  and  NEMAX).  Now  the 
third  loop  is  begun.  This  loop  will  zero  in  on  the  appropriate 
engine  speed  corresponding  to  vehicle  velocity  VEL,  by 
narrowing  the  range  between  FLAGP  and  FLAGM  until  the  difference 
is  less  than  one  unit.  First,  variable  NEI  is  set  equal  to 
the  midpoint  of  this  range,  and  variable  NE  is  set  equal  to 
NEI.  NE  now  represents  the  temporary  value  of  engine  speed. 
Next,  NT  is  calculated;  this  is  the  value  of  engine  speed 
corresponding  to  vehicle  velocity  VEL  as  reflected  through 
the  torque  converter  and  transmission  gear.  The  torque 
converter-speed  ratio,  SR,  is  set  equal  to  NT  divided  by  NE. 

If  the  value  of  SR  is  greater  than  1,  it  is  set  back  to  1, 
since  the  speed  ratio  of  the  torque  converter  cannot  exceed  1. 
Next,  SR  is  sent  into  subroutine  CURVE;  this  subroutine  will 
interpolate  array  TNEl,  which  contains  the  speed  ratio  versus 
input  speed  curve  for  the  torque  converter.  Returning  from 
the  subroutine  is  variable  NEI,  the  input  speed  corresponding 
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to  speed  ratio  SR.  Next,  a  corrected  ratio  SRI  is  set  equal 
to  NE  divided  by  NEl,  and  a  temporary  value  of  torque  con¬ 
verter  input  torque  TI  is  set  equal  to  TC  times  SRl  .  NE  is 
then  sent  to  subroutine  CURVE.  This  time  the  subroutine  will 
interpolate  array  TTE,  the  array  containing  the  engine  speed 
versus  engine  output  torque  curve.  Returning  from  the  sub¬ 
routine  is  variable  TE,  the  engine  output  torque  corresponding 
to  engine  speed  NE.  Torque  TE  is  compared  against  TI;  if 
the  difference  is  negative,  FLAGP  is  reset  to  NEl;  if  the 
difference  is  positive,  FLAGM  is  set  equal  to  NEl.  The  two 
values  FLAGP  and  FLAGM  represent  the  maximum  and  minimum 
engine  speeds  within  which  the  appropriate  value  lies.  A 
return  is  now  made  to  the  top  of  the  third  inner  loop,  and 
new  values  are  calculated  for  torque  converter  input  torque 
and  engine  output  torque.  A  comparison  of  these  two  will 
determine  how  the  range  between  FLAGP  and  FLAGM  is  narrowed. 
When  this  difference  is  less  than  one  unit,  the  values  are 
taken  to  be  established,  and  an  exit  is  made  from  this  loop. 

The  speed  ratio  of  the  torque  converter,  SR,  is  then 
sent  into  subroutine  CURVE.  This  time  the  subroutine  will 
interpolate  array  TTM,  the  array  containing  the  torque 
converter-speed  ratio  versus  torque  multiplying  coefficient 
curve.  Returning  from  the  subroutine  is  variable  TM,  the 
torque  multiplying  coefficient  corresponding  to  speed  ratio 
SR.  Next,  variable  T0S,  transmission  output  speed,  is 
calculated.  T0S  equals  the  input  speed  NT  divided  by  the 
gear  ratio.  The  transmission  output  torque  T0T  is  set 
equal  to  TI ,  the  torque  converter  input  torque  times  the 
converter  multiplying  coefficient  TM,  times  the  gear  ratio 
of  the  transmission,  times  the  transmission  efficiency. 

Next,  the  torque  at  the  ground,  TRF,  is  set  equal  to  the 
transmission  output  torque  T0T,  times  the  final  drive  ratio 
FDR,  times  the  final  drive  efficiency  FDREF,  divided  by  the 
wheel  rolling  radius  RR.  Variable  Jl  is  then  calculated. 

This  denotes  the  current  location  within  array  F0RCE  corres¬ 
ponding  to  the  particular  velocity  presently  being  calculated. 
TRF  is  checked  against  the  value  of  F0RCE  (I,  Jl) .  If  it 
is  greater,  it  is  loaded  into  this  location  in  the  array. 

If  it  is  not  greater,  it  is  discarded,  and  the  previously 
calculated  value  is  retained.  A  return  is  now  made  to  the 
top  of  the  second  loop,  and  a  new  value  of  VEL  is  calculated. 


C-64 


When  NEMAX  minus  NE,  the  current  value  of  engine  speed,  is 
less  than  2,  a  return  is  made  to  the  top  of  the  outer  loop, 
and  calculations  are  performed  for  another  gear  ratio. 

When  all  of  these  calculations  are  completed,  the  array  F0RCE 
is  filled  for  operations  with  a  torque  converter. 

A  check  is  made  next  to  see  if  a  torque  converter 
lockup  is  present.  If  there  is,  the  system  is  identical  to 
a  manual  transmission,  and  a  loop  is  entered  that  is  identi¬ 
cal  to  the  loop  in  subroutine  STICK.  Here,  tractive  force 
values  are  calculated  as  though  the  torque  converter  were  a 
simple  1:1  ratio.  If  any  are  greater  than  the  previously 
calculated  tractive  force  values  for  the  particular 
velocities,  they  are  superimposed  in  array  F0RCE  at  the 
appropriate  places.  The  final  step  in  the  subroutine  is  to 
set  variable  IVEL  euqal  to  Jl,  which  represents  the  highest 
point  reached  in  array  F0RCE .  In  subsequent  subroutines, 

IVEL  will  represent  the  maximum  value  in  this  array.  A 
return  is  now  made  to  the  calling  program. 
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SUBROUTINE  AUT0F 


VARIABLES  ENTERING:  ENTCG,  TTE(’'Z,30),TNEl(213O)J 
TTM  (2,36),  NCI,  NC2.,NC37  NG,  GR  <10),TC,  FDR,  RR, 
EFF,  FDREF,  L0KUP 


'ENTCG 


ENTCE=  .97 j — »*-)  K=l|-*“  TtE  (1,K0=TTE(1jK)/ENTCG 

TTE  C2,K>  TTEC2,  hf)*r 
ENTCG  #  ENTCE 


PI  =  3.1415926  5 
NEMAX=TTECl,NC3') 
NEHrisl  =  TTECl.,l') 
FORCE  Cl,!')  =  0. 
FORCE  C2,l)=  O. 


Two 

YES 

- ^\NC3/ 


K-K+l 


K=2 

force  Ci,k)=o. 

FORCE  (Z1K')=F0RCE(2,K-1')  +  .5 

YES^k> 
— “\!oi 


K  =  K+l 


SX.VE5 

>1.X  I 


5R»1. 
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VARIABLES  LEAVING:  XVEL,  F0RCE C£110l') 


Fig.  C6  cont'd 
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1 


AUT0F 


520  SUBR0UTI  NE  AUT0F 

530  DIMENSION  F0RCE(2,1O1) 

540  DIMENSION  TN El  (2 , 30) , TTMC2 , 30) , TTEC2 ,30) ,GR ( 1 0) 

550  REAL  NE,  NT,  NEI ,  NE1  ,  NEMI  N  ,NEMAX 

560  C0MM0N  IPA TCH (325) , F0RCE ,IS 01 L( 865) , TNE1 ,TTM,TTE , GR , 

570*  NG, TC  ,RR  ,  FDR  ,  FFF,  FDREF,I  TRA  N , I VEL,  NC 1  ,  NC2 , NC3  ,  ENTCG,L0KUP 

580  IF  (ENTCG-1  .)3,4,3 

590  3  ENTCErO  .97 

600  DO  2  K=1,NC3 

610  TTE(1 ,K) =TTE(1 ,K) /ENTCG 

620  TTF(2,K) =TTEC2,K)*ENTCG*ENTCE 

630  2  C3NTINUE 

640  4  F0RCEC1 ,1)=0. 

650  F0RCE(2,1)=O. 

660  D0  71  K=2,101 

570  F0RCEC1 ,K) =0. 

680  F0RCE(2,K)=F0RCE(2,K-1)+O.5 

590  71  C0NTINUE 

700  NEMAX=TTE( 1 , NC3) 

710  NEMIN=TTE(  1,1) 

720  PI  =3.1415926 

730  D0  50  NGEAR=1 ,NG 

740  VEL=-0 . 5 

750  51  VEL  =VEL+0 • 5 

760  FLAGPrNEMIN 

770  FLA  GM=NEMAX 

780  80  CONTINUE 

790  NEI  =(FLAGP+FLAGM)  /2. 

800  NE=NEI 

810  NT=GR(NGEAR)*88 .* VEL*  FDR /(2 .*PI*RR ) 

820  SR  =NT/NE 

830  IF  (SR.GE.l  .)  SR  =  1  . 

*40  CALL  CURVE(SR,NE1 ,TNE1 ,30) 

950  SR1=NE/NE1 

960  TI=TC*SR1*SR1 

R70  CALL  CURVE(NE,TD,TTE,30) 

880  IF  (TI  -TE)  30 ,21  ,40 

890  30  FLA GP  =NEI 

900  G3  T0  90 

910  40  FLAGM=NFI 

920  90  IF  (ABS(FLAGM-FLAGP)-l  ,)2l  ,21  ,80 

930  21  CONTINUE 

940  CALL  CURVE(SR,TM,TTM,30) 

950  T0S=NT/GR( NGEAR) 

960  T0T=TM*TI*GR(NGEAR)*EFF 

9  70  TRF:TM*TI*GR(NGEAR)*EFF*  FDR*  FDR  EF  /RR 

980  IF  (NEMAX-NE-2.) 57,58,58 

990  58  Jfl=2.*VEL+l  .01 

1000  IF  (TRF-F0RCEC 1 ,J1 ) ) 61 , 61 , 60 

1010  60  F3RCEC 1 ,J1)=TRF 
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2 


AUT0F 


1020 
1030 
1040 
1050 
10  60 
1070 
1080 
1090 
1100 
;  1  110 
1120 
1130 
1140 
1150 
1160 
11  70 
1180 
1190 
1200 
1210 
1220 
1230 


CONTINUED 


GO  10  61 
57  CONTINUE 
50  CONTINUE 

IF  (L0KUP)  5,5,6 
6  D0  140  NGEAR  =  1 ,NG 
VELr-0.5 
161  VEL=VEL+0.5 

NT=GR (NGEAR) *88. *VEL* FDR /(2.*PI*RR) 
IF  (NT-NEMIN)i  61 ,170,170 
170  IF  (NT-HEMAX) 121 ,121,140 
121  CALL  CURVE(NT,TE,TTE,30) 

T0S=NT/GR( NGEAR) 

TOTrTE*  GR ( NGEAR) *EFF 

TRF  rTE*GR(NGEAR)*EFF*  FDR+FDREF/RR 

Ji  =2.*VEL+1  .01 

IF  (TRF-F0RCEC1  ,JD)  161 ,161 , 160 
1 60  F0RCE( 1 ,J1) =TRF 
GO  T0  161 
140  CONTINUE 
5  IVELrJl 
RETURN 
END 
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Subroutine  KURVE  (Fig.  C7) 

Subroutine  KURVE  is  an  interpolation  routine.  In  all 
cases,  the  entering  array  to  be  interpolated  is  array  F0RCR, 
the  soil-dependent  tractive  force  versus  velocity  array.  It 
has  four  columns:  the  first  contains  a  velocity  component 
on  level  ground,  the  second  the  tractive  force  component  on 
level  ground,  the  third  the  velocity  component  on  a  slope, 
and  the  fourth  the  tractive  force  component  on  a  slope. 
Obviously,  columns  one  and  two  correspond,  and  columns 
three  and  four  correspond.  One  of  the  variables  entering 
the  subroutine  is  N,  which  determines  the  columns  that  are 
to  be  used  as  dependent  and  independent  variables  for  the 
calculation.  If  N  enters  as  +2,  the  independent  variable 
will  be  the  velocity  on  level  ground,  and  the  dependent 
variable  will  be  tractive  force  on  level  ground.  If  N 
enters  as  +1,  the  independent  variable  will  be  velocity  on 
slope,  and  the  dependent  variable  will  be  tractive  force  on 
slope.  If  N  enters  as  -1,  the  independent  variable  will  be 
tractive  force  on  level  ground,  and  the  dependent  variable 
will  be  velocity  on  level  ground.  If  N  enters  as  -2,  the 
independent  variable  will  be  tractive  force  on  a  slope,  and 
the  dependent  variable  will  be  velocity  on  a  slope. 

The  first  operation  performed  is  the  location  of  the 
first  non-zero  element  in  the  entering  array.  This  first 
non-zero  element  is  identified  with  index  IBEG.  Next, 
determination  is  made  as  to  whether  the  dependent  variable 
increases  or  decreases  as  the  independent  variable  increases. 
This  information  is  stored  in  FACT.  A  search  is  then  made 
through  the  array  starting  at  index  IBEG,  the  first  non-zero 
element  in  the  array,  and  continuing  to  the  last  point  of 
the  array,  identified  by  index  IVEL.  The  location  of  the 
incoming  value  of  the  independent  variable  in  the  array  is 
established,  and  the  corresponding  value  of  the  dependent 
variable  is  calculated  from  the  appropriate  column  in  the 
array.  This  value  is  then  returned  to  the  calling  program. 
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5UBR0UTINE  KURVE 

VARIABLES  ENTERING.*  X TABLE  (4,  lOf) ,N-» XVE.L 


N  =  E>~ 

iYES 


(n=-2>^ 

1YES 


xx=± 

rx=5 

^  FX=0.  _ 

ix=e 

rx=4 

IFX =  2. 

IFX=4 

T A 

II 

H 

L 

IFX=1 

IFX**) 

IBEG=I+-1  i 


FACT  =  +1. 

H 

I  =  IBEG 

FACT— i. 

Jt 

/  \YES  _ 4_ 

^SLE(lFX, !)>-*■-  X-X+l 
YNO 


NO/x>N 

\10CL 


—<TABLE(xX,T)) 

°  \.*FACT 


1=1+1 


FX= TABLE  (lFX.,1-1)  +  (TABLE  (lFX,T)  -TABLECXFX^X-I))* 
(x-TABLE (l  X  X— !')') / (TABLE  (XX,T)  -TABLE (IX,1-  l^S) 


VARIABLE.  LEAVING:  FX 


KURVE 


1810 

1820 

1830 

1840 

1850 

18  SO 
1870 
1850 
1890 
1900 
1910 
1920 
1930 

19  40 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 

20  40 
2050 
20  60 

20  70 
2080 
20904 
2100 

21  10 
2120 
2130 
2140 
2150 
21  60 
21  70 
2180 
2190 
2200 
2210 
2220 
2230 


-  1  - 


SUBR0UTINE  KURVECX, FX , TABLE, N , I VEL) 

DIMENSI0N  TABLEC4, 101) 

IF  (N-2) 11,4,11 

11  IF  (  N) 13,15,8 

13  IF  (  N+2 )  7 , 3 , 7 

3  IX  =2 
IFX  =  1 
G0  T3  6 

8  IX  =3 
IFX=4 
G0  T0  6 

4  IX  =  1 

I  FX  =2 
G0  T0  6 
7  IX  =4 
IFX=3 
6  FX=0. 

D0  9  1=1,101 

IF  (TABLE(IFX,I))14,9,14 

9  C0NTINUE 

14  IBEG=I  +  1 

IF  CX-TABLE(IX,IBEG-1))30,12,40 
30  FACT=-1 . 

G0  T0  50 
40  FACT=1  • 

50  D0  10  I =IBEG,  I VEL 

IF  (CX-TABLE(IX,I))*FACT)5,2,10 

5  FX=TABLE(IFX,I-1)  +  (TABLECI  FX  ,1 ) -TABLECI  FX  ,1 -1  >  > 
*(X-TABLE(IX ,  I  -1 ) )  /(TABLEdX  .1)  -TABLEdX,  I  -1) ) 

RETURN 

2  FX=TABLECIFX,I) 

RETURN 
10  C0NTIMUE 

IF  <N)16,15,15 

16  IF  (FACT)  17,15,15 

17  FX  =TABLE(  I  FX  ,  I  VEL) 

RETURN 

15  C0NTINUE 
FX  =0  . 

RETURN 

12  FX=TABLE(IFX , IBEG-1) 

RETURN 

END 
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Subroutine  CURVE:  (Fig.  C8) 

Subroutine  CURVE  is  also  an  interpolation  routine.  In 
this  case,  the  entering  array  is  array  V00B,  or  one  of  the 
three  arrays  from  the  engine  model.  Array  V00B  consists  of 
two  columns:  the  first  is  obstacle  height,  and  the  second 
is  vehicle  velocity  over  an  obstacle  of  this  height,  limited 
by  2.5-g  vertical  acceleration  at  the  driver's  seat.  The 
variable  N  entering  the  array  determines  which  of  these 
columns  is  the  dependent  variable  and  which  is  the  independent 
variable.  If  N  enters  as  +1,  the  independent  variable  is 
obstacle  height,  and  the  dependent  variable  is  the  associated 
vehicle  velocity.  If  N  enters  as  -1,  the  independent 
variable  is  vehicle  velocity,  and  the  dependent  variable  is 
obstacle  height.  A  check  is  made  to  determine  whether  the 
dependent  variable  increases  or  decreases  as  the  independent 
variable  increases.  This  information  is  stored  in  variable 
FACT.  Next,  the  location  of  the  incoming  value  of  the 
independent  variable  is  established  by  searching  the  array, 
and  the  corresponding  value  of  the  dependent  variable  is 
calculated  by  interpolation.  This  value  is  returned  to  the 
calling  program. 


SUBROUTINE  CURVE 

VARIABLES  ENTERING:  X,  TABLE  fe,  10l)  ,  N 
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CURVE 


2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
23  40 
2350 
2360 
23  70 
2380 
2390 
2400 
2410 
2420  & 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 


-  1  - 


SUBROUTINE  CURVE(X , FX  , TABLE ,  N) 

DIMENSION  TABLEC2 , 101 ) 

IF  (N)3 , 1 5,4 

3  IX  =2 
IFX  =  1 
N=-N 

GO  TO  6 

4  IX  =  1 
IFX=2 

6  FX=0. 

IF  (X-TABLECIX, 15)30, 12,40 
30  FACT=-1 . 

GO  TO  50 
40  FACT  =  1. 

50  DO  10  1=2, N 

IF  (  (X -TABLE (IX ,  I)  5* FACT)  5,2 , 1 0 

5  FX=TABLE(IFX,I-1)  +  (TABLEC I  FX  ,1 ) -TABLECI  FX ,  I -1 )  5 
*(X-TABLE(IX ,1-1)5 /(TABLE (IX , I ) -TABLE (IX ,1-1)5 

RETURN 

2  FX  =TABLE(I FX , I) 

RETURN 
10  CONTINUE 
15  FX  =0  • 

RETURN 

12  FX  =TABLE(IFX , 1 ) 

RETURN 

STOP 

END 
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Soil  Subroutines  F0IL  and  C0IL: 


The  standard  WES  cone  penetrometer  equations,  with  their 
supporting  concepts,  were  used  for  the  soil  subroutines  since 
field  data  for  the  six  geographic  sites  specified  by  the  Army 
Materiel  Command  were  available  in  terms  of  cone  index  values 
only.  The  standard  WES  field  instrument  utilizes  a  30-deg 
cone  having  a  base  area  of  0.5  sq.  in.  The  strength  of  fine¬ 
grained  soils  is  expressed  as  the  average  penetration  resist¬ 
ance  for  a  "critical  layer",  selected  according  to  the  size 
and  weight  of  the  vehicle  with  which  the  number  is  to  be 
used.  For  military  vehicles,  the  0-  to  6-in.  or  the  0-  to 
12-in.  layer,  depending  on  weight  and  type  of  vehicle  and  the 
soil  profile,  is  usually  considered  critical. 

Penetration  resistance  is  measured  by  the  cone  penetro¬ 
meter  and  is  expressed  in  terms  of  cone  index.  Since  the 
strength  of  a  soil  may  increase  or  decrease  when  loaded  or 
disturbed,  remolding  tests  are  necessary  to  measure  the  gain 
or  loss  of  soil  strength  to  be  expected  under  traffic.  The 
result  is  the  rating  cone  index  which  is  a  soil  dependent 
parameter.  A  comparison  of  the  rating  cone  index  with  the 
vehicle  cone  index  (a  vehicle  performance  characteristic) 
indicates  whether  the  vehicle  can  negotiate  the  given  soil 
condition.  Reference  contains  a  detailed  account-  of 

these  concepts. 

Subroutine  F0IL;  (Fig.  C9) 

Subroutine  F0IL  calculates  the  soil-dependent  tractive 
force  versus  vehicle  velocity  array  for  fine-grained  soil. 

The  program  is  divided  into  three  parts:  the  first  part 
calculates  the  mobility  index  and  vehicle  cone  index,  the 
second  part  calculates  drawbar  pull-to-weight  ratio  and 
resistance-to-weight  ratio,  and  the  third  part  uses  the 
incoming  array  F0RCE,  which  is  the  tractive  force  versus 
theoretical  vehicle  velocity  curve,  and  the  previous  calcula¬ 
tions  to  create  a  new  array  F0RCR.  This  array  has  four 
columns:  the  first  represents  vehicle  velocity  on  level 

ground  corrected  for  slip  in  the  soil,  the  second  the 
corresponding  value  of  vehicle  tractive  effort,  the  third  the 


vehicle  velocity  on  a  slope  corrected  for  soil  slippage,  and 
the  fourth  the  corresponding  vehicle  tractive  effort.  The 
calculations,  following  the  WES  soil  model,  use  cone  indexes. 
The  first  part  of  the  program  calculates  mobility  index,  XMI, 
which  depends  on  a  number  of  factors  and  is  calculated 
differently  for  tracked  and  wheeled  vehicles.  For  a  tracked 
vehicle,  the  contact  pressure  factor,  CPF,  is  set  equal  to 
the  vehicle  weight  divided  by  the  quantity  two  times  the 
track  length  times  the  track  width.  Next,  the  weight  factor, 
WF,  is  calculated:  if  the  vehicle  weight  is  less  than  50,000 
lb.,  WF  =  1;  if  it  weighs  between  50,000  and  70,000  lb.,  WF  = 
1.2;  if  it  weighs  between  70,000  and  100,000  lb.,  WF  =  1.4; 
and  if  it  weighs  more  than  100,000  lb.,  WF  =  1.8.  Then,  the 
track  factor,  TF,  is  set  equal  to  track  width  divided  by  100. 
Next,  the  grouser  factor  is  set  equal  to  1  if  the  grouser 
height  is  less  than  1.5  in.,  and  to  1.1  if  the  grouser 
height  is  greater  than  1.5  in.  The  bogie  factor  is  then  set 
equal  to  gross  vehicle  weight  divided  by  the  quantity  10  times 
the  number  of  bogies  times  the  area  of  one  track  shoe. 

For  a  wheeled  vehicle,  the  contact  pressure  factor,  CPF, 
is  set  equal  to  two  times  the  gross  vehicle  weight  divided  by 
the  quantity  nominal  wheel  width  times  nominal  wheel  diameter 
times  number  of  tires.  Next,  the  weight  factor,  WF,  is 
calculated.  This  depends  on  the  weight  range,  WR,  which  is 
equal  to  gross  weight  in  pounds  divided  by  the  number  of 
axles.  (The  weight  range  is  also  expressed  as  WX,  the  vehicle 
weight  in  kips  divided  by  the  number  of  axles.) 

If  WR  is  less  than  2,000  lb.,  WF  =  .553  *  WX; 

If  WR  is  between  2,000  and  13,500  lb.,  WF  =  .033  *  WX  +  1.05; 
If  WR  is  between  13,500  and  20,000  lb.,  WF  =  .142  *  WX  -  .42; 
and,  if  WR  is  greater  than  20,000  lb.,  WF  =  .278  *  WX  -  3.115. 

The  tire  factor,  TF,  is  equal  to  10  plus  the  nominal  tire 
width  divided  by  100.  The  grouser  factor,  GF,  is  set  to  1  if 
the  vehicle  is  not  supplied  with  chains,  and  to  1.05  if  the 
vehicle  has  chains.  Next,  the  wheel  load  factor  is  set  to 
WX  divided  by  2 . 


C-77 


For  both  wheeled  and  tracked  vehicles,  the  following 
factors  are  calculated:  the  clearance  factor,  CLF,  is  set 
equal  to  the  ground  clearance  divided  by  10;  and  the  engine 
factor,  EF,  is  set  equal  to  1  if  the  horsepower  per  ton  is 
greater  than  10,  and  to  1.05  otherwise.  The  transmission 
factor,  TFX,  is  set  equal  to  1  if  the  transmission  is 
hydraulic,  and  to  1.05  if  the  transmission  is  mechanical. 
Finally,  for  both  wheeled  and  tracked  vehicles,  the  mobility 
index,  XMI,  is  calculated  as  follows: 

*  EF  *  TFX 

The  one-pass  vehicle  cone  index,  variable  VCI,  is 
calculated  next.  For  a  tracked  vehicle: 


XMI 


“ 


CPF  *  WF 
TF  *  GF 


+  WL0RBF  -  CLF 


VCIl  =  7.  +  .2  *  XMI 


39.2 

XMI  +  5.6 


and  for  a  wheeled  vehicle: 


VCIl  =  11.48  +  .2  *  XMI 


39.2 

XMI  +  3.74 


Then,  it  is  determined  if  there  is  excess  RCI  available. 
This  variable,  RCIX,  is  set  equal  to  the  incoming  soil  RCI 
minus  the  one-pass  vehicle  cone  index.  If  this  value  is 
greater  than  zero,  calculation  proceeds;  if  not,  no  further 
calculation  is  performed  within  the  subroutine.  A  variable 
IG0  is  set  equal  to  0,  indicating  immobilization  in  the  soil, 
and  a  return  is  made  to  the  calling  program.  If  there  is 
excess  RCI,  the  next  variables  calculated  are:  D0W,  the 
drawbar  pull-weight  ratio;  CX,  maximum  20-pass  drawbar  pull- 
to-weight  ratio;  and  CXP,  maximum  100-pass  drawbar  pull-to- 
weight  ratio.  If  the  vehicle  is  tracked,  and  contact  pressure 
factor  is  less  than  4, 

XX  =  .544  +  .0463  *  RCIX 
D0W  =  XX  ±  SQRT (XX  *  XX  -  .0702  *  RCIX) 


CX  =  .758 


CXP  =  .71 
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If  the  vehicle  is  tracked,  and  the  contact  pressure  factor 
is  greather  than  4: 

XX  =  .4554  +  .0392  *  RCIX 

D0W  =  XX  -  SQRT (XX  *  XX  -  .0526  *  RCIX) 

CX  =  .671 

CXP  =  .71 

If  the  vehicle  is  wheeled,  and  the  contact  pressure  factor 
is  less  than  4: 

XX  =  .3885  +  .0265  *  RCIX 

D0W  =  XX  -  SQRT (XX  *  XX  -  .0358  *  RCIX) 

CX  =  .674 

CXP  =  .76 

If  the  vehicle  is  wheeled,  and  the  contact  pressure  factor 
is  greater  than  4: 

XX  =  .379  +  .0219  *  RCIX 

D0W  =  XX  -  SQRT (XX  *  XX  -  .0257  *  RCIX) 

CX  =  .585 


CXP  =  .655 


Next,  the  resistance-to-weight  ratio,  RT0W,  is  calculated. 
If  the  vehicle  is  wheeled,  and  the  contact  pressure  factor 
is  less  than  4: 


RT0W  = 


.861 

RCIX  +  3.249  + 


.035 
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If  the  vehicle  is  wheeled,  and  the  contact  pressure  factor 
is  greater  than  4,  or  if  the  vehicle  is  tracked: 


RT0W 


2.3075 

RCIX  +  6.5  + 


.045 


The  total  soil  resistance: 

RT  =  RT0W  *  VW 

and  the  correction  factor  used  in  later  slip  calculations: 

CF  =  RT0W  +  D0W  -  CX 
are  then  calculated. 

The  last  part  of  the  subroutine  calculates  the  soil- 
dependent  tractive  force  versus  vehicle  velocity  array 
F0RCR.  This  part  is  passed  through  twice.  The  first  time, 
columns  1  and  2  of  the  array  are  calculated:  column  1  con¬ 
tains  the  vehicle  velocity  on  level  ground  corrected  for 
slippage  in  the  soil,  and  index  IVEL  is  set  to  1;  column  2 
contains  the  corresponding  tractive  force,  and  index  IF0R 
is  set  to  2.  On  the  second  pass,  columns  3  and  4  are 
calculated:  column  3  contains  the  vehicle  velocity  on  a 

slope  corrected  for  soil  slippage,  and  index  IVEL  is  set  to 
3;  column  4  contains  the  corresponding  values  of  tractive 
force,  and  index  IF0R  is  set  to  4.  Within  the  loop,  the 
first  variable  calculated  is  TR0R,  which  contains  the  maximum 
tractive  force  that  can  be  derived  from  the  soil.  TR0R  has 
an  index  from  1  to  3,  representing  downs lope,  level,  and 
upslope,  in  that  order.  Next,  a  loop  is  begun  with  index  I, 
which  goes  from  1  to  101;  this  is  the  number  of  points  in 
array  F0RCE.  First,  a  variable  F0RK  is  established.  This 
variable  will  temporarily  hold  the  value  of  F0RCE  (1,  I) , 
which  is  the  incoming  tractive  force  value.  If  this  tractive 
force  is  zero,  the  corresponding  locations  for  velocity  and 
tractive  force  in  array  F0RCR  are  set  to  zero,  and  a  return 
is  made  to  the  top  of  the  loop.  If  the  force  is  not  zero, 
calculation  proceeds.  Next,  F0RK  is  checked  against  TF0R. 

If  it  is  greater  than  TF0R,  it  is  set  equal  to  TF0R.  This 
will  produce  a  flat  spot  at  the  top  of  the  final  tractive 
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force  curve  and  assure  that  this  curve  will  not  carry  values 
that  exceed  the  force  that  can  be  generated  in  the  soil. 

Next,  the  slippage  in  the  soil  is  calculated.  If  the  vehicle 
is  tracked,  and  the  contact  pressure  factor  is  less  than  4: 

Y  =  F0RK/VW  -  CF 

SLIP  =  .0257  *  Y  -  .0161  +  - «.0.1.5.1.?, 

.8353  -  Y 


If  the  vehicle  is  tracked,  and  the  contact  pressure  factor 
is  greater  than  4: 

Y  =  F0RK/VW  -  CF 

.00734 

SLIP  =  .0733  *  Y  -  .0063  +  77177  y 

If  the  vehicle  is  wheeled,  and  the  contact  pressure  factor 
is  less  than  4: 


Y  =  F0RK/VW  -  CF 
SLIP  =  .0621  *  Y  -  .021  + 


.01888 
.7794  -  Y 


If  the  vehicle  is  wheeled,  and  the  contact  pressure  factor 
is  greater  than  4: 

Y  m  F0RK/VW  -  CF 

SLIP  =  .084  *  Y  -  .016  +  .01414 

.6697  -  Y 

Finally,  the  values  of  velocity  and  force  are  loaded  into 
array  F0RCR : 

F0RCR (IVEL,  I)  =  F0RCE  (2,  I)  *  (1.  -  SLIP) 

F0RCR (IF0R,  I)  =  F0RK; 

and  a  return  is  made  to  the  top  of  the  loop.  When  this  loop 
is  completed,  another  small  loop  is  started.  This  loop 
generates  values  of  F0RMX(I),  where  I  =  1  to  3  for  downslope, 
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level  and  ups  lope.  F0RJMX  carries  the  maximum  force  that  the 
vehicle  can  generate,  depending  both  on  the  soil  and  on  the 
capability  of  the  vehicle.  Last,  the  gross  vehicle  weight 
is  corrected  for  slope,  and  a  return  is  made  for  the  second 
pass  through  the  outside  loop.  Here,  all  calculations  are 
repeated  for  the  vehicle  on  a  slope.  When  this  is  finished, 
a  return  is  made  to  the  calling  program. 


C-82 


SUBROUTINE  FOIL- 


VARIABLES  entering:  grade,  rct,  nveh,gvw,  ol, 
WID,  GT7  A,  NBC  ,  GC,  HPT ,  IITVAR,  FORCE  C2,  101^ 


IG0=1 

VW  =  GVW 

NO 


YES 


CPF  =VW/02.*DL*Wld) 


CPF=VW*2./ 

(y/id*dl-*gt) 

WR  =  VW/A 
\vx  =  WR/IOOO. 


TF  =  WID/lOO. 


WF=.55S 

-*  wx 


WF=.033 

*wx 

-4-1.05 


GF-1. 


WF=1 


H  WF— 1-8 


\NL0RBF  = V  SN/Q.O.*  FLOAT  Cm  &£)*/§ 

1 

r 

TF=  (10.+wiD)/l0O. 

CLF: 

-  GC  / 10. 

WF  =  .  278  *  Wx-3.115 


WL0£6F 

=wx/2. 


XMI=  CcPF^WF/CTFjllFGFx)  +  YVLQRSF-  CLF)  »  £F*TXF 


Fig.  C9 
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YES 


-3R.2/Cxhi+5.4) 

vcri=  11.4ft  +  2.  *  XMI 
-3e1.2/CxMX+3.74) 

RCIX-=  RCI 
-veil 


NO 


XX  -.544  +  .04G3*RCXX 

Dg&W  =  XX  —  SQRTCxX  J*XX  — ,0702*RCXX) 

C.X  —  .758  CXP*  .82 


XX  =  .4554  +  .0392*  RCIX 

D0W  =  XX-  SQRTCxX  *XX  -  .OS2G*  RCI x) 

ex  =  .471 _ CXP  =  ,71 _ 

XX=  -3SB5  +.0245*RCIX 

D0W  =  XX-5QRTCXX*  XX-.035S*RCrx) 


CX  =  -  £.74 


CX.P=  .74 


XX  =  .379  +  .0219*RCIX 

D0>W  =  XX~5QRxCxX*XX-.O257*Rcrx) 

CX=.595  CXP=. 45S 


RTQiw  =  .8Gl/(fRCIX +3.249') +.035 


RT0W  =  2 .3075/C  R  Cl  X  +  4 .5) + .  045 


Fig.  C9  cont'd 
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F0RK=  F0RCE  Cl, 


F®RK 

=o.  /n 


r=r+x 


CF  =  RT0W  +d  0  w  -  C  x 
RT=  RT0W  -*  VW 
TF0R  <£)  =  (CF+  CXF)*V  w 


O-F0RC0)J>— H  F0RK=TF0RO2) 


FCZRCRCd-^sO. 
F0RCR  C2-,I')=0« 


Y=F0RK/VW'CF 


F0RCR  Cl,  I>  =  FORCE  ^X1)  *  (±.-SLTP> 
FOPCR(2,I)  =  FORK 


^LXP  = .  0257  *Y  OlGl  ■+■ .  015X9  /C-8353  -Y) 


8>LXP  =  .0733*Y  - .  0043  4-.oo734/(.7177  -V) 


SLTP=  .042.1 *Y-  .02.1  +.01988/(77794 -V,)[ 


SLX  P=  .084  *Y-  .  0X4  +.  OX414-/C-  1497  -  Y) 


CSF  =  c^sCatan  Cg RAP P/loO.')') 


FORM X  (2)  =  F0RCR  (2 ,  I) 

TF0R  ($)  =  r  F0  R  C2)  *  CS  F 

FORM  X (3)  =  F0RCR &.,  l)  L _ 

TF0R (1)=  TF0R  C3^  YES^^no 

FORMxC^^FORMxCS') 


return  )  I  r=x-+-  x 

v  y 


F0RCRC0,X>=  F0RCRCl,X') 

F0FCRC4,I)=  FORCR/G^^CSF 


r=x 


v<z>rcrC2y^; 


VAR  I A  BLE  5  LEAVING  i  F0  RCR  C4 ,  16 1')  ,  F0  RM  X^TFOR  C3>,  RT 
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1 


F0I L 

i 

f 

'100  SUBROUTINE  F0I  L(  GRA  DE ,  I  GO) 

11  1 0  DIMENSION  F0RCEC2,1O1)  ,  F0RCR  C  4 , 1  0  1 ) 

120  C0MM0N  IPATCH(325) , FORCE, F0RCR , F0RMX(3) ,TD0R(3) ,RT,RCI , 

T30&  NVEH,NFL,GVW,DL,WID,GT,A  , NBC  , GC  , HPT,  I TVAR  ,RDIAM,TPSI  ,TPLY, 
11  40  A  HS,WC,SAI  ,AWPKF,GCA  ,  VSS  ,  NCR  EW,  FD,  VFS 
jl  50  IG0  =  1 

'ISO  VW=GVW 

il 70  1'  IFCNVEH.NE.O)  GOTO  200 

150  CPF=VW/C2.*DL*WID) 

'190  IFCVW.LT. 50000»)WF  =  1 .0 

|200  I  FCVW.GE. 50000.. A ND.VW.LT. 70000. )WF  =  1 .2 

;2 1 0  I  FCVW.GE.  70000.. AND.  VW.LT.l  00000. )WF  =  l. 4 

•220  IFCVW. GE. 100000. )WF=1  .8 

1230  TF=WI  D/100 . 

240  IFCGT.LT. 1 .5)GF  =  1 .0 

250  IFCGT.GE.l ,5)GF=1 .1 

!2S0  WL0RBF=VW/C1O.*FL0ATCNBC)*A) 

=270  G0T0  210 

'280  200  CPF=VW*2./CWI  D*DL*GT) 

1290  WR  ]  =  IT 

|300  WX  =WR/1 000  . 

'310  IFCWR.LT.  2000.  )WF=.553*WX 

1320  IFCWR.GE.2000..AND.W=Y;  FMOO .) WF=.033*WX+1 .05 

=330  I FCWR. GE. 13500.. AND. WR.LT. 20000. )WF=.142*WX-. 42 

'340  IFCWR.GE.20000.)WFr.2  78*WX-3.1  15 

i350  TF  =  C1O.+WID)/10O. 

;3S0  IFCNBC.EQ.0)GF  =  1  .0 

'370  IFCNBC.DQ.l)GF  =  l  .05 

|380  WL0RBF rWX/2  • 

390  210  CLF=GC/10. 

■400  IFCHPT.GT.10.)EF  =  1  .0 

1410  IFCHPT.LE.10.)  EF  =  1  .05 

420  IFCITVAR.EQ.0)TXF=1  .0 

430  IFCITVAR.EQ.1)TXF  =  1  .05 

1440  XMI  =  CCPF*  WF/CTF*GF)+WL0RBF-CLF)*EF*TXF 

1450  IFCNVEH.EQ.O.AND.CPF  .LT.4.)N  =  1 

‘460  I FCNVEH  ,E0.O.AND.CPF.GE.4.)N=2 

j4  70  IFCNVEH.GT.0.AND.CPF.LT.4.)N=3 

'480  IFCNVEH.GT.0.AND.CPF.GE.4.)N  =  4 

490  G0T0C22O ,220 ,230 ,230)  ,N 

■500  220  VCI1  =  7.+  .2*XMI-39.2/CXMI  +  5.6) 

15 1  0  G0T0  240 

|520  230  VCU  =1  1  .48+.2*XMI-39.2/CXMI+3.74) 

.530  240  RCIX  =RCI  -  VCI 1 

540  '  IF  CRCIX.LE.O.)  G0  T3  SOO 

;550  G0T0C25O  ,2S0 ,270 ,280)  ,N 

1560  250  XX=.544+.0463*RCIX 

>570  D0W=XX-SQRTCXX*XX-.O7O2*RCIX) 

’580  CX  =  .758 

1590  CXP  =  .S2 
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!F0I L  CONTINUED  -  2 


:soo 

G0T0  290 

1610  2  SO 

XX=.4554+.0392*RCIX 

|S20 

D0W=XX-SQRT(XX*XX-.O52S*RCIX) 

;s3o 

CX  =0 . 67 1 

1640 

CX  P  = .  7 1 

1650 

G0T0  290 

jS60 

270 

XX=.3885+.0265*RCIX 

1670 

D0W=XX-3ORT(XX*XX-.O358*RCIX) 

1680 

CX  =  .674 

iS90 

CXP=.76 

1700 

G0T0  290 

1710  280 

XX=.379+«0219*RCIX 

720 

D0W=XX-SQRT(XX*XX-.O257*RCIX) 

<730 

CX  =  .585 

!740 

CXP  = .  655 

1750 

290 

G0  T0  (310,310,300,310)  ,N 

*760 

300 

R  T0W=O .861 /(RCIX+3 .249)  +  0.035 

770 

G0T0  320 

,780 

310 

RT0W=2.3O75/(RClX+6.5)  +  0.045 

<790  320 

C  F=R  T0W+D0W-CX 

800 

RT=RT0W*  VW 

jsio 

TF0RC2)  =  (CF+CXP)*VW 

<820 

D0  420  1  =1  ,101 

830 

F0RK=D0RCE(1 ,1) 

;840 

IF  (F0RCEC1 ,I))330,410,330 

850 

330 

I FCF0RCEC1 ,1) .LE.TF0R(2))G0T0  350 

860 

F0RK=TF0R(2) 

870 

350 

Y  =  F0RK/VW  -  CF 

880 

G3  T0  (360,370,380,390) ,N 

890 

3  60 

SLIP =0.02 57*Y-0. 01 61+0.01 51 9/(0.8353-Y) 

900 

G0  T0  400 

910 

3  70 

SLI P=0.0733*Y -0.00 63+0. 00734/(0. 71 77-Y) 

920 

G0  T0  400 

930 

380 

S LI P=0.0 62 l+Y-0.021+0. 018 88/(0. 7794 -Y) 

940 

G0  T0  400 

9  50 

390 

SLIP=0.084*Y-0.016+0.01414/(0.6697-Y) 

9  60 

400 

F0RCR ( 1 ,1) =F0RCE(2,I)*(1 .-SLIP) 

970 

F0RCR (2,1) =F0RK 

980 

G0  T0  420 

990 

410 

F0RCR ( 1 ,1) =0. 

1000 

F0RCR (2 , 1 ) =0  . 

1010 

420 

l  C0NTINUE 

1020 

CSF=C0S(ATAN(GRADE/1OO.)) 

1030 

D0  1000  1=1  ,  101 

10  40 

F0RCR (3,1) =F0RCR ( 1 ,1) 

1050 

1000 

l  F0RCR(4,I)  =  F0RCR(2,I)*CSF 

10  60 

52C 

l  D0  530  1=1,101 

1070 

IF(F0RCR(2,I) .NE.O.)G0T0  540 

1080 

530 

1  CONTINUE 

1090 

540 

1  F0RMX (2) =F0RCR (2.1) 

1100 

TF0R (3) =TF0R(2)*CSF 

1110 

F0RMX (3) =F0RCR (4,1) 

1120 

TF0R ( 1 ) =TF0R(3) 

1130 

F0RMXC1) =F0RMX(3) 

1140 

RETURN 

1150 

600  IG0=O 

1160 

RETURN 

1170 

END  C-87 
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Subroutine  C0IL  (Fig.  CIO) 

Subroutine  C0IL  calculates  the  soil-dependent  tractive 
force  versus  vehicle  velocity  array  for  a  coarse-grained 
soil.  If  the  vehicle  is  tracked  and  has  a  flexible  track, 
the  drawbar  pull-to-weight  ratio  is  set  equal  to  0.568,  and 
the  resistance-to-weight  ratio  is  set  equal  to  0.074.  If 
the  vehicle  has  a  non-flexible  track,  the  drawbar  pull-to- 
weight  ratio  is  set  equal  to  0.695,  and  the  resistance-to- 
weight  ratio  is  set  equal  to  1.  For  either  type  of  track, 
the  tractive  force-to-weight  ratio,  TF0W,  is  set  equal  to 
drawbar  pull-to-weight  ratio  plus  resistance-to-weight  ratio. 

If  the  vehicle  is  wheeled,  the  calculation  is  somewhat 
more  complicated  and  depends  on  several  factors.  First,  if 
the  ratio  of  nominal  wheel  width  to  wheel  rim  diameter  is 
greater  than  2.4,  the  tire  factor,  FAC7,  is  set  equal  to  5. 

If  this  ratio  is  less  than  2.4,  FAC7  is  set  equal  to  2. 

Then,  the  wheel  diameter  factor,  WDF ,  is  calculated  as 
follows: 


WDF  =  FAC 7  *  WID  +  RDIAM 
The  contact  pressure  factor,  CPF,  is  defined  by: 

CPF  =  .607  *  TPSI  +  1.35  *  (117.  *  T PLY/WDF )  -  4.93 
The  contact  area  factor,  CAF,  is  defined  by: 

CAF  =  log  (VW/CPF) 

The  strength  factor,  SF,  is  defined  by: 

SF  =  .0526  *  GT  +  .0211  *  TPSI  -  .35  *  CAF  +  1.587 
And  the  one-pass  cone  index,  VCIl,  becomes: 

VCI1  =  10.  **  SF 

Finally,  it  is  determined  if  there  is  any  excess  RCI 
available.  The  variable  RCIX  is  set  equal  to  the  incoming 
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soil  RCI  minus  VCIl.  If  there  is  no  excess  RCI,  variable 
IG0  is  set  equal  to  zero,  indicating  that  the  vehicle  is 
immobilized  in  the  soil,  and  a  return  is  made  to  the  calling 
program.  If  there  is  excess  RCI,  calculation  proceeds. 

First,  a  new  strength  factor,  SF,  is  set  equal  to  the 
log  of  RCI.  The  maximum  towing  force  is  calculated: 

TFM  =  (28.87  *  SF  +  10.1  *  CAF  -  1.52  *  GT 
-  .61  *  TPSI  -  43 .82) /100. 

The  20-pass  drawbar  pull-to-weight  ratio  is  set  to 
0.56,  and  the  100-pass  drawbar  pull-to-weight  ratio  is  set 
equal  to  0.57475.  Next,  the  resistance-to-weight  ratio  is 
calculated: 

RT0W  =  (22.2  +  .92  *  TPSI  -  (8.  +  .37  *  TPSI)  *  SF)/ 
100. 

The  correction  factor,  CF,  used  in  later  slip  calcula¬ 
tions,  is  also  calculated: 

CF  =  RT0W  +  TFM  -  D0W  20 

Finally,  the  tractive  force-to-weight  ratio  is  calculated 

TF0W  =  CF  +  DW  100 

For  both  wheeled  and  tracked  vehicles,  the  total  soil 
resistance  becomes: 

RT  =  RT0W  *  VW 

The  last  part  of  the  subroutine  fills  in  array  F0RCR, 
the  soil-dependent  tractive  force  versus  vehicle  velocity 
array.  This  calculation  is  identical  to  the  calculation  in 
subroutine  F0IL,  with  the  following  exceptions.  The  maximum 
tractive  force  available  from  the  soil,  TF0R,  is  here  set 
equal  to  tractive  force-to-weight  ratio,  TF0W,  times  gross 
vehicle  weight.  Also,  the  slip  equations  are  different.  If 
the  vehicle  is  wheeled, 

Y  =  F0RK/VW  -  CF 

SLIP  =  .0074  *  Y  -  .0061  +  .  0,0.3 74 — 

.5785  -  Y 
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If  the  vehicle  is  tracked  and  has  a  flexible  track: 

Y  =  F0RK/VW  -  RT0W 

SLIP  =  1.074  *  Y  -  .72  +  SQRT ( (1.074  *  Y  -  .72)  **  2 
+  .09  *  Y  +  .009) 

If  the  vehicle  has  a  non-flexible  track: 

Y  =  F0RK/VW  -  RT0W 
SLIP  =  -.0083  + 

The  rest  of  this  calculation  is  identical  to  that  in  F0IL. 
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SUBROUTINE  COIL 


VARIABLES  ENTERING:  SRAOE,  RCI,NVEH,GVW,Vs/ID, 
GT-,  NFU,  RDIAM,  TPST,TPLY,  FORCE  C*2,  ±OC) 


IG0=1 
VW  =  GVW 


NO 

YESY_* 

JT - 

“  N  =  1 

/WID\ 

TE.S  _ 

/RDIAM 

\<2.4//' 

^  L_ 

NFL\y£S  N  =  2.  H=% 

D(Z>w=.695  D0W=.54>3 

RT{2>W= .  1  RT(8W=.C>74 

_  I  _ 

\G7=  5.  TF0W=DOW+  RTOW 


Vs/DF  =  FAC7  *WlO  +RDIAM 

cpf  « ,<o07  -sktpsx  4-1.35  *Cli7.  *tpl.v/\adf)-4.93 
CAF  =  AL0G1OCvw/CPF) 

SF  = . 052G  *GT  +  .0211  **TPSI  -.35  *CAF+-1.5S7 
VC-X1.=  10.**SF  RCTX-RCX-VCXl. 


PC  IX 
\>0. . 


TG0=O 


Return 


t  _ - 


9,F  =AL0G1OCRCX'}  D0W2O  =  .5G  DW 10O  =.574-75 
TFM  =  C'29.S7-*SF+±0.1*CAF-d.52-*GT 
-,61*TPSI  -43.82^/100. 

RT0W  =  C22.'2  +  .92*TPSX  -C8.-'-.'2r7^TP^X)*,SF')/lOO. 
CF=  RT0W  +TFM  -D0W  20  TF0W=  UF  +DWT00 


T  =  4 


RT=RT0W  *  VW 
TFOR  Cl)  =TF 0\N 


Fig.  CIO 
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F0rk=  f0rce(’±,i') 


F0RCRCi,I)=O 

F0RCR(e,X)=O 


F0RCR(±,r)  =  F0RCE  (2, Cl.~  SLXF)> 
F0  K  C  R  C2, 1)  =  F0RK 


Y=  F0RK/VW-CF 

SLIP  =  .0Q74*Y  -.00£>1  +  .  00374-/^57^5 

Y  =F0RK/v\W  -  RTgBW  YY  =  1.074  *Y -.7£ 

SLTP=  YY-fSQRT(YY*YY  +  .09*Y  +  .009) 

Y  =•  F0RK/VNN  -  RT0&W 

SLXP  =  -.008S  +  .005S1Z/C-573-Y') 


CSF  =  c®s  Catam  CGRADE/100.))  - 9-\  1=1 


F0RMX(jZ')  =  F0RCRC2,I) 
TF0R  (2)  =TF0R  (£)  *CSF I 
F0RV1X  c$)—  F0RCR  X) 
TF<Z>R(0  =  TF0F 


F0RMX  (£)z=  F0Fi  M  X 


F0RCR  (3,X)  =F0RCR.  Cl,X) 
F0FC.K  C4,I)  =  F0RCRC'2,X')*CSF 

I 


RETURM 


LYES  1 

1  = 

~  >1 

“  _L 

Y-4 - 

VARIABLES  LEAVING:  F0RC R  (4 , 101}  , F0RMXC3^),TF0R 03} RT 


Fig.  CIO  cont'd 
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L 


C0IL 


11190  SUBROUTINE  C0I  L(  GRA  DE ,  I  GO) 

,1200  DIMENSION  F0RCE(2 ,101)  ,  FORCR  (4,101) 

‘1210  COMMON  IPATCH(325) ,F0RCE,F0RCR,F3RMX(3) ,TD0R(3) ,RT,RCI , 

11220 &  NVEH  ,  NFL,  GVW  ,  DL,  WI  D,  GT,A  ,  NBC  , GC  ,HPT ,  I  TVAR  ,RDI AM,  TPSI  , TPLY  , 
.1230  A  HS  ,  WC  ,SAI  , A WPKF ,  GCA  ,  VSS  ,  NCR  EW, FD, VFS 
1240  IG0  =  1 

1250  VWrGVW 

1260  1  IF  (  NVEH)  2 ,2,3 

|1270  2  IF  (  NFL)  32 ,32,30 

;12B0  30  N=2 

1290  DOW=  .  695 

'1300  RT0W=.l 

1310  G0  TO  34 

1320  32  N=3 

!  1 3  3  0  D0W=.5S8 

■1340  R  T0W  =  .0  74 

1350  34  TF0W:DOW-F)RT0W 

13  SO  G0  TO  18 

;1 370  3  N=1 

1380  IF  (WI D/RDIAM-2.4) 5,4,4 

1390  4  FAC7=2.0 

1400  G0  TO  104 

1410  5  FAC7=5 .0 

1420  104  WDF  =  FAC7*WI  D+RDIAM 

11430  CPF=0  •  SO  7*TPSI  +  1  .35*(  1 1  7.*TPLY/WDF) -4.93 

1440  CA  F=A  L0G1  0  (  VW/CPF) 

1450  SF=0. 0525* GT+O. 021 1*TPSI  -0 .35*  CA  F+ 1  . 587 

1460  VCI  1=10  .**3  F 

1470  7  RC-IX  =RCI  -VCI  1 

1480  8  IF  (RCIX) 9 , 9 , 1 0 

,1490  9  IG0=O 

1  500  RETURN 

1510  10  SF=AL0G1  O(RCI) 

1520  TFM=(28.87*SF+10.1*CAF-1 .52*GT-0 .S1*TPSI -43.82) /100 . 

1530  13  D3W20  =0 .56 

1540  14  DW1 00=0.57475 

1550  15  R TOW: (22 .2+0 .9 2* TP SI -(8 ,+0 .37*TPSI)*SF)/100, 

1550  IS  CF=R  T0W+TDM-D0W20 

1570  17  TFOWrCF+DWIOO 

1580  18  RT=RT0W*VW 

1590  TF0R(2)  =TF0W*VVJ 

1600  DO  420  1=1  ,101 

1610  F0RK  =  F0RCE(  1  ,1) 

1  S20  IF  (F0RC.E(1  , 1)  >410,410,330 

1  530  330  IF(F0RCE(1  ,1)  ,LE.TF0R(2)  >  GOTO  340 

1540  F0RK  =  TF0R(2) 

1650  340  GO  TO  (24,37,38)  ,N 

1560  24  Y  =F3RK/VW-CF 

1570  SLIP  =0. 00  74*Y-0. 0061 +0  . 003  74/(0. 57S5-Y) 

1  680  GO  TO  25 
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1S90 
1700 
11710 
•1720 
1  750 
1740 
1  750 
1  7  SO 
1770 
1  7*0 
1790 
1*00 
1*10 
1*20 
1*30 
1*40 
1*50 
18  SO 
18  70 
1*80 
1890 
1900 
1910 
1920 
1930 


2  - 


CONTINUED 


3  7  Y=D3RK/VW-RT0W 

SLIP  =  1 • 0  74*Y- • 72+SQR  T((1  .074*Y- .  72)**2+.09*Y+.009) 
GO  T0  25 

38  Y=F3RK/VW-RT0W 

SLI P=. 00531 2 /C.573-Y)-. 0083 
25  F0RCR(1 ,1) =F0RCE(2,I)*C1 .-SLIP) 

F0RCR (2,1) =  F0RK 
G3  T0  420 
410  F0RCRC1 ,1) =0. 

F0RCR(2,I) =0. 

420  CONTINUE 

CSF=C0SCATAN(  GRADE/1  00.)) 

D0  1000  1=1,101 
F3RCR (3,1) =F0RCR( 1 ,1) 

1000  F0RCR(4,I) =F0RCRC2,I)*CSF 
D0  530  1=1,101 

I F( F0RCRC2 , I ) . NE.O . ) G0T0  540 
530  CONTINUE 
540  F0Rf<lX(2)  =F0RCR(2,I) 

TF3RC3) =  TF3R(2)*CSF 
F0RMXC3) =F3RCR (4,1) 

TF0RC 1 ) =TF0R(3) 

F0RMXC  1)=F0RMX(3) 

RETURN 

END 
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Subroutine  PATCH  (Fig.  Cll) 

In  using  subroutine  PATCH,  values  of  several  constants 
that  are  used  later  in  the  program  are  calculated  first: 
the  acceleration  due  to  gravity  at  32.16  ft/sec2;  two  con¬ 
version  factors  for  changing  velocity  in  miles  per  hour  to 
feet  per  second  and  the  reverse  (C0NF1  and  C0NF2) ;  two 
values  for  NSDC,  the  number  of  stem  diameter  classes,  that 
are  used  as  limits  on  the  loops  (NSDCM,  which  is  NSDC  -  1, 
and  NSDCP,  which  is  NSDC  +  1) ;  and  the  vehicle  mass,  VM, 
which  is  gross  vehicle  weight  divided  by  g,  acceleration 
due  to  gravity.  Several  variables  are  necessary  in  the 
analysis:  0BL,  the  obstacle  length;  0BW,  the  obstacle 

width;  0BS,  the  obstacle  spacing;  H,  the  obstacle  height; 
0BAA,  the  obstacle  approach  angle;  and  GRAD I,  the  slope 
class  for  this  patch  type  from  the  patch  data.  Also  required 
are:  VRID,  the  velocity  limited  by  ride  dynamics  or  surface 

roughness;  and  S  (I) ,  the  mean  spacing  of  all  stems  of  stem 
diameter  class  I  or  larger.  Also,  the  value  of  XNT(I)  must 
be  set;  this  is  the  number  of  trees  of  stem  diameter  class 
I  in  an  area  containing  one  tree  of  the  largest  class.  Then, 
the  value  of  SDS(I),  the  mean  spacing  for  stem  diameter  class 
I,  is  calculated  for  all  values  of  I  from  1  to  NSDC. 

Next,  there  is  a  loop  with  index  K,  whose  values  1  to 
3  define  the  slope  —  downslope,  level,  or  upslope  —  in 
that  order.  Within  this  loop,  the  forces  of  resistance  on 
slopes  and  the  velocity  limited  by  vision  are  calculated. 
(Also,  the  values  of  the  variable  VEL0(K)  are  initiated  at 
zero  within  this  loop.  This  is  extraneous  to  the  calcula¬ 
tions  in  this  loop,  but  it  is  conveniently  done  here.) 

The  first  subroutine  entered  in  this  loop  is  subroutine 
HILL,  in  which  the  resistance  due  to  the  slope  and  the  soil 
is  calculated  and  stored  in  variable  RGU(K),  K  being  1,  2 
and  3  as  before.  Return  is  made  to  subroutine  PATCH,  and 
the  braking  force,  BRF0R,  that  is  necessary  in  the  VISI0N 
subroutine  is  calculated;  BRF0R  is  the  braking  force  that 
can  be  generated  in  the  soil,  and  is  equal  to  the  maximum 
tractive  force  generated  in  the  soil  plus  the  resistance 
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RGU(K),  minus  RTS,  which  is  the  soil  resistance  altered  by 
the  angle  of  the  slope.  BRF0R  is  compared  with  the  variable 
XBR,  the  braking  force  that  the  vehicle  can  produce  with  its 
own  brakes;  and  the  least  of  these  two  values  is  taken  to 
be  the  final  braking  force.  This  value  is  sent  into  sub¬ 
routine  VISI0N. 

In  subroutine  VISI0N,  the  variable  VELV,  the  velocity 
limited  by  visibility,  is  calculated.  This  is  the  initial 
velocity  which,  given  the  braking  force  available  and  the 
resultant  deceleration,  will  bring  the  vehicle  to  a  velocity 
of  zero  within  the  recognition  distance,  and  is  then  the 
maximum  velocity  due  to  recognition.  This  calculation  is 
for  "downslope" . 

Next,  the  grade  is  indexed  upward,  and  is  set  to 
"level".  HILL  and  VISI0N  are  gone  through  again,  and  new 
values  of  RGU(K),  BRF0R,  and  VELV  for  level  ground  are 
calculated.  After  this  is  done,  the  grade  is  set  to  "upslope", 
and  the  same  procedure  as  before  is  followed  through  sub¬ 
routines  HILL  and  VISI0N.  When  this  loop  is  completed,  there 
are  available  RGU(K),  the  resisting  force  due  to  soil  and 
the  slope,  and  VELV(K),  the  velocity  limited  by  vision. 

Both  of  these  have  three  values  -  downslope,  level  and  upslope. 

The  next  part  of  the  subroutine  consists  of  a  series  of 
nested  loops,  and  the  final  outcome  of  all  calculations  per¬ 
formed  within  these  loops  is  the  variable  VEL0(K),  K  again  ■ 
denoting  downslope,  level  and  upslope.  The  variable  VEL0  is 
initially  set  to  zero.  Now,  within  these  loops,  various 
temporary  values  of  velocity  are  calculated.  These  velocities 
are  dependent,  first,  on  whether  obstacles  are  avoided  or 
overridden;  this  information  is  carried  in  index  J,  which 
has  the  values  1  and  2.  Secondly,  they  are  dependent  on 
the  forces  necessary  to  override  vegetation  or  the  area 
available  if  the  vegetation  must  be  avoided;  this  is  carried 
by  index  I ,  which  goes  from  1  to  the  number  of  stem  diameter 
classes  +1.  The  third  index  is  K,  which,  as  before,  carries 
the  values  of  1,  2  and  3  for  downslope,  level  and  upslope, 
respectively.  The  number  of  stem  diameter  classes  +1  is  9; 
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determination  of  whether  obstacles  are  avoided  or  overridden 
yields  two  possible  values,  and  the  slope  has  three  possible 
values;  this  is  a  total  of  54  temporary  velocities  that  are 
calculated.  At  the  end  of  the  loops,  each  of  these  are  com¬ 
pared  with  the  previous  value  of  VEL0;  and  if  it  is  larger, 
VEL0  is  set  up  to  the  newly  calculated  value.  If  not,  a 
return  is  made  through  the  loops  to  calculate  the  next 
temporary  velocity.  Finally,  when  these  loops  are  completed, 
VEL0  carries  the  maximum  velocity,  given  all  the  considera¬ 
tions  just  described. 

The  first  loop  entered  is  that  carrying  index  J  to 
determine  whether  obstacles  will  be  avoided  or  overridden. 

The  first  time  through,  J  is  checked  to  see  if  it  is  1.  If 
so,  subroutine  AREA0  is  entered;  here,  the  percentage  of  the 
area  denied  by  obstacles,  AD0,  is  calculated.  (Subroutine 
PATCH  is  entered  every  time  a  new  patch  is  being  calculated, 
so  only  one  obstacle  size  is  used  here  for  the  given  patch.) 
If  J  is  2,  subroutines  0BSTCL  and  0BSF  are  entered  instead 
of  AREA0. 

In  0BSTCL,  the  value  IG0,  which  signifies  a  go  or  no-go 
condition,  is  calculated.  If  IG0  is  0  and  the  vehicle  cannot 
negotiate  the  obstacle  type  geometrically,  no  further 
calculation  is  performed,  and  a  return  is  made  to  the 
beginning  of  the  loop.  If  IG0  is  1,  meaning  there  is  no 
geometric  interference,  subroutine  0BSF  is  entered;  here, 
the  force  required  to  overcome  the  obstacle  is  calculated 
and  stored  in  variable  F0M.  Next,  subroutine  CURVE  is 
entered;  here,  the  maximum  velocity  limited  by  2.5-g  vertical 
acceleration  at  the  driver's  seat  is  calculated  and  stored 
in  variable  V0LA.  The  two  possibilities  -  whether  obstacles 
are  to  be  avoided  or  overridden  -  have  now  been  calculated. 
The  variables  returning  from  this  part  of  the  calculation 
are;  AD0,  the  percentage  of  the  area  denied  by  obstacles; 
F0M,  the  force  required  to  overcome  obstacles,  and  V0LA,  the 
velocity  limited  by  vertical  acceleration.  For  J  =  1,  AD0 
is  set  to  zero,  F0M  is  calculated  in  subroutine  0BSF,  and 
V0LA  is  calculated  in  subroutine  CURVE. 


Now  the  second  loop,  which  runs  through  the  stem  diameter 
classes,  is  begun.  The  first  subroutine  entered  is  AREAV, 
which  calculates  the  percentage  of  the  area  denied  by  vegeta¬ 
tion  (assuming  the  vehicle  cannot  overcome  this  vegetation) ; 
this  percentage  is  stored  in  variable  PAV.  Next,  subroutine 
AREAT  is  entered.  The  variables  sent  into  subroutine  AREAT 
are:  AD0,  the  percentage  of  the  area  denied  by  obstacles, 

and  PAV,  the  percentage  of  the  area  denied  by  vegetation. 
Within  subroutine  AREAT,  a  total  area  denied  is  calculated. 

The  variable  returning  from  AREAT  is  SRF,  a  speed  reduction 
factor  due  to  maneuvering.  This  is  used  later  as  a  multi¬ 
plier  in  calculating  total  velocity.  If  SRF  is  equal  to 
zero,  no  further  calculation  on  this  pass  through  the  loop 
is  performed,  and  a  return  is  made.  If  SRF  has  a  real  value, 
the  calculation  proceeds. 

The  next  subroutine  entered  is  VEGF ;  here,  the  forces 
necessary  to  override  vegetation  (trees)  are  calculated,  as 
follows:  FATl,  the  force  required  to  override  a  single  tree; 

FMT,  the  maximum  force  required  to  overcome  trees;  and  FAT, 
the  average  force  required  to  overcome  trees.  Now,  two 
checks  are  made.  First,  it  must  be  determined  whether  the 
force  FMT  divided  by  vehicle  weight  is  greater  than  2  (2-g 
horizontal  acceleration) .  If  this  is  exceeded,  no  further 
calculation  is  performed,  and  a  return  is  made;  if  not,  a 
check  is  made  to  determine  whether  this  maximum  force  is 
less  than  the  pushbar  force  that  the  vehicle  can  stand.  If 
this  force  is  less  than  the  pushbar  capability,  the  calcula¬ 
tion  proceeds;  if  not,  a  return  is  made. 

The  third  loop,  carrying  index  K,  is  now  entered,  K 
being  1  to  3  for  downs lope,  level  and  upslope,  as  already 
explained.  The  first  calculation  is  the  total  force  of 
resistance  due  to  the  slope,  the  soil,  obstacles  and  vegeta¬ 
tion.  This  total  resistance  force  is  stored  in  variable  TRFU. 
A  check  is  made  to  determine  whether  TRFU,  the  resisting 
force,  is  larger  than  the  maximum  force  that  the  vehicle  can 
generate  (which  is  stored  in  variable  F0RMX) .  If  it  is 
larger,  no  further  calculation  is  performed  in  this  loop, 
and  a  return  is  made;  if  not,  the  calculation  proceeds. 
Subroutine  KURVE  is  now  entered  in  this  loop;  here,  the 
maximum  velocity  that  the  vehicle  can  manage  for  the  given 
conditions  is  calculated.  This  value  is  stored  in  variable 
VTT. 
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Now,  the  maximum  velocity  that  can  be  attained  in  the 
patch  under  consideration,  given  what  has  previously  been 
calculated,  is  determined.  This  velocity  is  stored  in 
variable  VMTEM  and  consists  of  the  minimum  of:  VTT,  the 
velocity  available  in  the  soil;  VRID,  the  maximum  velocity 
for  the  given  surface  roughness;  and  VELV(K) ,  the  maximum 
velocity  limited  by  recognition  distance.  At  this  point, 
the  obstacle  appraoch  angle,  0BAA,  is  checked.  If  it  is 
less  than  17  deg,  V0LA  is  set  equal  to  VMTEM.  (It  is 
assumed  that  there  will  be  no  sudden  acceleration  on  such  a 
gradual  slope.)  Next,  a  check  is  made  to  determine  if  VMTEM 
is  larger  than  V0LA  (the  velocity  limited  by  2.5-g  vertical 
acceleration).  If  it  is  larger,  the  calculation  proceeds; 
if  it  is  not,  the  temporary  velocity  is  set  to  VMTEM,  and 
an  exit  is  made  to  a  lower  part  of  the  calculation.  This 
temporary  velocity  is  VTEM(K,  J,  I);  i.e.,  it  is  the  tem¬ 
porary  velocity  with  the  index  value  on  each  of  the  three 
loops  taken  into  consideration.  If  VMTEM  is  larger  than 
V0LA,  another  check  is  made  before  the  speed-up/slow-down 
model  is  entered. 

If  the  obstacle  spacing  type  is  random,  the  effective 
spacing,  0BS,  is  set  equal  to  the  area  of  a  circle  whose 
diameter  is  the  mean  spacing  divided  by  the  vehicle  width. 

A  final  check  is  made  to  determine  whether  the  spacing 
between  obstacles  is  larger  than  two  times  the  vehicle 
length.  If  it  is  not,  the  temporary  velocity  VTEM  is  set 
to  V0LA.  If  the  obstacle  spacing  is  greater  than  two  times, 
the  vertical  length,  the  speed-up/slow-down  computation  is 
performed.  The  first  thing  calculated  is  the  maximum 
braking  deceleration  that  the  vehicle  can  manage.  Then, 
an  initial  velocity,  TVELl,  is  set  equal  to  V0LA,  the  maxi¬ 
mum  velocity  the  vehicle  can  attain  going  over  the  obstacle. 
An  initial  distance,  TDIST,  is  set  equal  to  two  times  the 
vehicle  length;  and  the  initial  time,  TTIME,  is  set  to  two 
times  the  vehicle  length  divided  by  the  velocity  V0LA. 

Subroutine  CURVE  is  now  entered.  Returning  from  CURVE 
is  a  variable  ACCEL,  which  at  this  point  carries  the  maximum 
force  that  the  vehicle  can  produce  at  velocity  TVELl.  From 
this  is  subtracted  the  total  resisting  forces,  TRFU,  and  the 
result  divided  by  the  vehicle  mass,  VM,  to  produce  the 
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acceleration  the  vehicle  can  develop.  Then  a  new  velocity, 
TVEL2,  is  set  equal  to  the  previous  velocity,  TVELl,  plus 
this  acceleration  times  the  time  interval  of  1  sec.  Since 
the  time  is  incremented  at  1-sec  intervals,  it  does  not 
appear  in  the  equation.  If  TVELZ  exceeds  VMTEM,  it  is  set 
equal  to  VMTEM.  A  new  distance  is  then  set  equal  to  the 
previous  distance,  TDIST,  plus  the  distance  the  vehicle  has 
progressed  in  this  1-sec  interval. 

Next,  with  the  present  velocity  given,  the  time 
available  to  decelerate,  TAD,  and  the  time  needed  to 
decelerate,  TND,  before  the  next  obstacle  encountered  are 
calculated.  A  check  is  made  to  see  if  the  time  available 
is  greater  than  the  time  needed.  If  it  is,  the  time  allowed 
for  acceleration  is  incremented  upward  by  1  sec.  The 
starting  velocity  of  TVELl  is  set  to  TVEL2  (which  was  just 
calculated) ,  and  a  return  to  KURVE  is  made  for  another 
calculation.  A  new  force,  a  new  acceleration,  and  a  new 
time  available  and  time  needed  to  decelerate  are  calculated. 
This  loop  is  continued  at  1-sec  intervals  until  the  time 
available  to  decelerate  equals  the  time  needed  to  decelerate. 
At  this  point,  the  maximum  velocity  that  the  vehicle  can 
achieve  between  obstacles  has  been  reached.  Then,  the 
average  velocity  is  the  distance  between  obstacles,  0BS, 
divided  by  the  total  of  the  current  time,  TTIME,  plus  the 
remaining  time  needed  to  decelerate,  TND.  This  velocity  is 
stored  in  VTEM (K,  J,  I). 

Three  values  have  now  been  established:  (a)  VTEM  has 

been  established  for  the  indexes  K,  J,  and  I;  (b)  if  the 
obstacle  spacing  was  not  greater  than  two  times  the  vehicle 
length,  VTEM  was  set  equal  to  V0LA?  and  (c)  if  VMTEM  was  not 
greater  than  V0LA,  VTEM  was  set  equal  to  VMTEM. 

It  is  now  necessary  to  determine  if  the  total  resistan¬ 
ces  exceed  the  total  forward  forces  that  the  vehicle  can 
generate,  i.e.,  the  total  force  F0RMX  that  the  vehicle  can 
generate  in  the  soil  plus  the  force  derived  from  its  kinetic 
energy.  If. the  resistances  are  greater  than  the  forward 
force  the  vehicle  can  generate,  no  further  calculation  is 
done,  and  a  return  is  made  to  the  early  part  of  the  loop. 

If  the  vehicle  still  has  enough  force  to  overcome  these 
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resistances,  VTEM  is  taken  as  being  established.  It  is  now 
reduced  by  the  speed  reduction  factor  due  to  maneuvering, 

SRF,  calculated  in  subroutine  AREAT. 

The  bottom  of  the  loops  has  now  been  reached.  A  value 
of  VTEM  dependent  on  all  the  indexes  in  these  loops  is  now 
compared  with  the  previously  calculated  value  of  VEL0.  If 
this  new  velocity  VTEM  is  larger  than  the  old  calculated 
velocity  VEL0,  VEL0,is  set  equal  to  this  currently  calculated 
value  of  VTEM.  If  the  current  VTEM  is  not  greater  than  VEL0, 
as  previously  calculated,  the  old  value  of  VEL0  is  retained, 
this  current  value  of  VTEM  is  discarded,  and  a  return  is  made 
to  the  top  of  the  loops. 

At  the  end  of  this  procedure,  (VEL0(K),  with  K  denoting 
downslope,  level  and  upslope,  has  been  established  and  con¬ 
tains  the  maximum  velocity  the  vehicle  can  achieve,  given 
all  these  previous  considerations.  After  the  looping  is 
completed,  it  is  then  necessary  to  calculate  the  maximum 
velocity  the  vehicle  can  attain  in  this  patch  type;  this  is 
carried  in  variable  VEL0C.  It  is  first  necessary  to 
determine  if  VEL0  (sub  1,  2  or  3)  is  equal  to  zero.  If  any 
one  of  these  three  is  equal  to  zero  (it  would,  of  course, 
usually  be  the  value  when  on  an  upslope) ,  the  vehicle  would 
be  immobilized  in  this  patch,  variable  VEL0C  is  set  to  zero, 
and  a  return  is  made  to  the  calling  program.  If  these  three 
values  of  VEL0  are  greater  than  zero,  a  calculation  is 
performed;  it  is  assumed  that  the  vehicle  travels  at  each 
of  these  velocities  for  the  same  distance.  This  average 
velocity  is  stored  in  VEL0C,  and  a  return  is  made  to  the 
calling  program. 


SUBROUTINE  PATCH 


VARIABLES  ENTERING  :  SvClO-),  RDGtO),  SdCTC?),  k 5DC, 
SDL(jLO)?  NS5C,a  S  CIO) ,  AA  C20),  <0W  Cl  O') ,  0  H  ClO)  ,  G  L  C±0>')  , 
SLCCio'),  ISRC  C20>,  ISClo')7X0BL7X0BW7 IPR,I0BH, 
10BS,  rGR,TREC7T0ST,  F0RCRC4,1O±)7  IVEL, F0EMv.C'3')7 
TF^rCs*),  R.T7GVW7V00BC27So),NC47VRXDe(C2.<O'),  W7 
PBHT,  PBF,  VL,  10 BAA 


G  =  22.1G 
PI  =-3. 141592CS 
CONFIG  1S./22. 
C0NF2  —  22./ ±5. 

nsdcm-nsdc-1 

nsdcp=  NSDC+1 
Vm  =Gvw/g 

0BL  =  0lCi0BL!) 
0RW  =  0W(X0BW) 
OBS  «  OSClO  BS) 

0BSX  =  0BS 

h  =  Oh  Ciobh) 
0BAA=  AACI0BAA) 
rND=XSRCCTFR) 

vrtd=vrideCxnd)  | 

G  RADX  ~  5  L  C  CTG  R') 

grade  •  -gradt. 


K  —  4_ 


Al=  (180. -  0BA A) *  FT/ 190. 
WH  =  2.*H/Cl2.*TAN  CAl')') 


0BW  =WH  +.Oi 


XND=ISCX) 
BCx)  =  SVCXND) 


XNTCx)  a  SCNSPC)  **2 
*(±./sCl)**2  -  ±./s(l+ !')**£') 


NO 


SdsCx>0.M^1 


YES 


E 


YE2 


iDSCl)  -  GQRTCsCNSDC>Mt2./XNTCx)) 


Xnt(nsdc)=  1. 
SDS(NSDC)  =.  SCt^SDC-) 


FIG.  Cll 
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I-I+l 


YES  I 

NO 


SRF 

^>o. 


PAV, 

AD0 


SRF 


s<PBF>>^ 

— C/SVW  >-*— 1 

/l-l,  PBHT,  \ 

1 

1 

YyeS 

f 

>  /  SO,  SDS,  \ 

1 

S - 1_> 

4  vpc;p  1 

—  II 

p 

FMT= 

50000. 

^  \  SDL,  XNT,  / 
\  W, NSDC  / 

r  .  ^ 

i 

M  V  E-.VO  I  J 

TRFU=F0M+ 
RGU  CK'i+FAT 


1=9 


/TRFU>\  NO 
sfPRMXCep*— 


vmtem=amini(vtt,vrid, 

VELV  00)  V0LA=  \J0  LAX 


'  FAT  I,  A 
fmt, 
s_gAT  / 

/_trfu,A 

F0RCR, 

v-K,IVEL/ 


VTT 


AREAT 


KURVE 


/AfiS Ay 

TlGO*—  0BAAT>— — * 


^6SX\YES 

>DL/2.>-rH 


YYES _ TnO 

V<?>LA=  VMTEM-t-.OOl - 

VTEH(k,J,I)=VMTEM  - 

•^-|vtehCk,j,i)=.v^la]  I- 

f  NO 

'r  i 

V>2.*v L>^ - 1 — 

_ ^YE.S _ 

BA=C0NFl  *CtF0RCkO 
+RGoCk)-RTSVvM 
TDIST=2.*VL  TVEL1=V2«-A 
TT  X  me =2  .#V\vty<0>CA*Q0NF2) 


A/mtenQ-Aes  [q)bsx= 

>V0LAX^  9>BS 


<Yr0ST 

yesAt 


-  TINC  =  5. 

Tyes, 

\>iooo. 


CZ>BSX  =0BS 
*<2>es  *  PI/ 
C4.-*w) 


TINC  =  1.- 


TVEL-1,  N 
F^RCR, 
,K,XVEL/ 


KURVE 
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VARIABLE'S  LEAVING!  H,  0BW,  0BAA,  VEL0C 


FIG.  Cll  cont'd 
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IPREP 

i 

i 

1 

jlOO  SUBROUTINE  PATCH (VEL0C) 

illO  COMMON  SVC1O),RD(1O),SD(1O),NSDC,SDL(1O),NSSC,0S(1O), 

'120  A  AAC20) f0W(lO) ,0H(IO) ,0L(1O) tSLC(10) .ISRCC20) ,IS(10) ,IREC, 
jl  3  0  &  1 0BL,  I  0BW,  I 0BS ,  I 0BH  ,1  0BAA  ,IGR,IPR,IRCI(3)  ,IST,I0ST,SDS(  10) , 

=  140 &  XNT(IO)  ,S(10) ,F0RCE(2,1O1)  , F0RCR  ( 4 , 1 0 1 )  ,  F0RMX<3)  tTF0R(3)  , 

!1  504  RT,RCI  ,NVEH,NFL, GVW,DL,WID,GT,A  ,  NBC  ,GC  ,HPT,ITVAR  ,RDIAM, 

|l  60 A  TPSI,TPLY,HS,WC,SAI  ,AWPKF,GCA  ,  VSS  , NCREW, FD, VFS ,TNE1  (2,30)  , 

<1 70  A  TTM(2f30)  TTE(2.30)  GR (10)  tNG,TCtRR  ,FDR  .EFF.FDREF.ITRAN, 

'1 80 A  IVEL,NC1  ,NC2,NC3,ENTCG,L0KUP,V00B(2,3O)  ,VRIDE(20)  ,W,PBHT, 

|190  A  PBF,VL,NC4,NC5,H,0BW,0BAA,XLT,HB,  AV,REC  ,  VDA  ,CGF,CGH  ,DWX  ,RW1  , 

|200  A  ACG  DCG,HC tRWW , I  DUMMY  (  1555)  ,  XBR 

'210  DIMENSION  VTEMC  3 ,2 , 1 1 )  ,  VEL0C3)  ,  VELV(3)  ,RGU(3) 

)220  G=32  •  1  6 

230  C0NF1 =15./22. 

^240  C0NF2=22./15. 

1250  NSDCM=NSDC-1 

;260  NSDCP=NSDC+1 

*270  VM=GVW/G 

i280  03L=0L(I0BL) 

>290  0BW=0WCI0BW) 

'300  OBS  =  0S(  1 0BS) 

|310  0BSX=0BS 

<320  H=0H(I0BH) 

!330  0BAA  =AA  ( 1 0BAA) 

|340  I F  (  0BAA- 180  ,)2000r2001  ,2001 

,350  2000  A1  =  (180.-0 BA A)*3. 141  59265/180. 

'360  WH=2.*H*C0S(A1  )  /(  12  .*S  I  N(A  1 )  ) 

[370  I  F(  0BW.GT .  WH)  G0T0  2001 

i380  0BV=WH+.O1 

'390  2001  INDrlSRC(IPR) 

|400  VRI  DrVRIDE(IND) 

1410  GRADI  =SLCCIGR) 

'420  GRADE  =  -GR@DI 

[430  D0  100  I=1,NSDC 

[440  IND=IS(I) 

'450  S(I)=SVCIND) 

;460  100  CONTINUE 

;4  70  D0  101  1=1  ,NSDCM 

480  XNT(I) =S(NSDC)**2*(1 ./S(I)**2-1 ,/S(I+l)**2) 

1490  IF  (XNT(  I)  )  40 , 40 , 41 

500  40  SDS( I ) =0 . 

510  G0  T0  101 

1520  41  SDS(I)  =SQRT(S(NSDC)**2/XNT(I)  ) 

*530  101  C0NTINUE 

*540  XNT(  NSDC)  =1  • 

[550  SDS(NSDC)  =S(NSDC) 

1560  52  D0  1001  K=  1  ,3 

'570  VELO(K)  =0  .0 

1580  CALL  HI LL(GRADE,RGU(K)  ,GVW,RT,RTS) 

*590  BRF0R  =  TF0R(  K)+RGU(K)  -RTS 
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Iprep  continued 

I 

1600  I F (BRF0R .GT.X3R) BRF0R=XBR 

1610  CALL  VISI0N(BRF0R,RD(IREC)  ,  VM, VELV(K)  ) 

;620  GRADErGRADE+GRADI 

!  63  0  1001  CONTINUE 
'640  GRADEr-GRADI 

650  DO  1000  J=!  ,2 

1660  IF  (J-l) 130,130,140 

;670  130  I FC0BSX .LE.DL/2.) G0T0  131 

!680  CALL  AREA0(0BL,0BW,0BS,W,ADO,I0ST, OBAA  ,H) 

i  69  0  GOTO  132 

|700  131  AD0  =  O. 

,710  132  F0M=O.O 

1720  VOLA  =  100. 

;730  V0LAX=V0LA 

'740  G0  TO  150 

1750  1  40  IF(0BSX.LE.DL/2.)G0T0  148 

'760  CALL  0BSTCL(RGU(3)  ,IVEL,IG0) 

!770  999  F0RMATC 1  OX ,  13) 

1780  IF  (IG0)  1000,1000,145 

i790  1  45  CALL  OBSFC  GVW , H ,  OBS  ,  W,  0BL ,  F0M,  IOST) 

1800  1  49  CALL  CURVECH, VOLA , V00B , NC4) 

'810  GOTO  5183 

1820  148  F0M=0. 

1830  V0LA  =  100. 

1840  5183  V0LAX  =V0LA 
1850  AD0=O. 

'860  150  D0  300  1  =1  ,NSDCP 

1870  CALL  AREAVCI ,SD,NSDC,XNT,W,S,PAV) 

;880  CALL  AREAT(PA  V,  ADO  ,SRF) 

‘890  IFCSRF)300,300,1  60 

1900  1  60  CALL  VEGFC I - 1 ,PBHT ,SD ,SDS ,SDL, XNT , W , FAT  1 , FMT, FAT , NSDC ) 

:910  I  F(I .EQ .9) FMT=500000 . 

920  IFCFMT/GVW-2.) 165,165,300 

930  165  I F( FMT-PBFC 170,300,300 

1940  1  70  D0  290  K  =  1  ,3 

950  TRFU=RGUCK)  +  F0M+FAT 

960  IF  ( TRFU-F0RMX (K) )  1  71 ,171  ,300 

1970  1  71  CALL  K URVEC TRFU , VTT,  F0RCR  ,-K  ,  IVEL) 

,980  VMTEMrAMINl  ( VTT ,  VRI  D  ,  VELVCK  )  ) 

1990  VOLA  rVOLAX 

ilOOO  IFCABSC18O.-0BAA)  .LT.  1  7. )  VOLA  =VMTEM+.00  1 

1010  IFCOBSX .LE.DL/2.) VOLA =VMTEM+. 001 

1020  IF  (VMTEM-VOLA) 190,190,215 

1030  190  VTEM(K,J,I)=VMTEM 

1040  GOTO  200 

11050  215  0BSX  =OBS 

|1 0  60  IF(IOST.EQ.l)  0BSX=0BS*  0BS*3 . 1  4 1  592  65  /  (  4  .*  W) 

,1070  TINC  =  1. 

11080  IFCOBSX. GE. 1000. )TINC  =  5. 

;1090  I  FC0BSX-2  .*  VL)  220,220,225 
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PREP  CONTINUED 


'1  100  220  VTEM(K,J,I)=V3LA 

IlllO  G0T0  200 

1120  225  BA=C0NF1*(TF0R(K)+RGU(K)-RTS)/VM 

1140  TVEL1 =  V0LA 

U1 50  TTIME=2.*VL/(V0LA*C0NF2) 

>1160  TDI5Tr2.*VL 

1170  240  CALL  KURVE(TVELI , ACCEL, F0RCR ,K , IVEL) 

11180  I  F( A CCEL.LE.TR FU)  G0T0  235 

1190  ACCEL=CACCEL-TRFU)*C0NF1 /VM 

1200  TVEL2=TVEL1+ACCEL*TINC 

1210  I  FC  TVEL2 .GT. VMTEM)  G0T0  235 

'1220  TDIST=TDIST+(TVELl+TVEL2)*C0NF2*TINC/2. 

11230  TAD=C0BSX-TDIST)  /( ,5*C0NF2*(TVEL2+V0LA)  ) 

>1240  TND=(TVEL2-V0LA) /BA 

1250  IF  (TAD-TND)250,250,230 

1260  230  TTI ME=TTI ME+TI NC 

•1270  TVELUTVEL2 

.1300  G0  T0  240 

1310  235  TVEL2  = VMTEM 

1320  TDI  ST=TDI  ST+TVEL2*C0N  F2*TI  NC 

]1 330  TAD=(0BSX-TDIST)/(.5*C0NF2*(TVEL2+V0LA)) 

1340  TND=( TVEL2-V0LA) /BA 

11350  I  F(TAD-TND)250 ,250,236 

1360  236  TTIME=TTI  ME+TI  NC 

T 390  G0T0  235 

T  400  250  VTEM(K,J,I) =0BSX*C 0NF1 /<TTI ME+TND) 

,1410  200  IF(RGU(K)+F0M+FAT1  -VM*VTEM(K  ,J,I)**2/1 1  .6 

1  420  &  -F0RMX(K))26O,3OO,3OO 

<1  430  260  VTEM(K,J,I)  =VTEM(K,J,I)*SRF 

■  1440  IF  (VTEM(K,J,I)  -  VEL0(K)  >290,290,270 

1450  270  VEL0(K)  =VTEM(K,J,I) 

1460  290  CONTINUE 

11470  300  C0NTINUE 

1480  1000  CONTINUE 

■I  490  IF  ( VEL0  ( 1  )*  VEL0  (2)*  VEL0C3)  >400,400,401 

jl  50  0  400  VEL0C=O.O 

1510  RETURN 

!1 520  401  VEL0C  =  3 .0* VEL0 ( 1 )*  VEL0C2)* VEL0C  3)  / 

1  530  &  (VEL0(2)*VEL0(3)+VEL0C 1 >*VEL0(3)+VEL0< 1 )*VEL0C2)) 

1540  3172  FORMAT  (5F12.2) 

>1550  31  73  FORMAT  (//) 

1560  RETURN 

1570  END 
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Subroutine  MARSH  (Fig.  C12) 


Subroutine  MARSH  follows  the  general  pattern  of  sub¬ 
routine  PATCH,  except,  since  there  are  no  obstacles  in  a 
marshy  area,  the  subroutines  associated  with  obstacles  are 
not  called.  Checks  have  already  been  made  in  the  main  prog¬ 
ram  to  determine  whether  the  water  depth  in  the  marsh  is 
greater  than  the  fording  depth  of  the  vehicle,  and  whether 
the  vehicle  is  a  swimmer  and  can  swim  across  the  area  if  the 
water  is  too  deep  to  ford.  When  this  subroutine  is 
entered,  it  is  already  known  that  the  vehicle  will  be 
fording.  The  only  elements  of  this  terrain  that  limit 
vehicle  motion  are  soft  soil  (which  will  be  considerably 
softer  than  was  generally  the  case  in  PATCH)  and  vegetation. 
The  first  thing  calculated  are  the  various  arrays  associated 
with  vegetation.  These  are:  S(I),  the  mean  spacing  of  all 
stems  of  stem  diameter  class  I  or  larger;  XNT(I),  the  number 
of  trees  of  stem  diameter  class  I  in  an  area  containing  one 
tree  of  the  largest  size;  and  SDS(I),  the  mean  spacing  of 
stem  diameter  class  I.  Before  the  loop  is  entered,  variable 
AD0,  the  area  denied  by  obstacles,  is  set  to  zero.  A  loop 
then  is  performed  over  the  stem  diameter  classes  +1. 

The  first  subroutine  entered  is  AREAV,  and  the  area 
denied  by  vegetation  is  calculated  and  stored  in  variable 
PAV.  PAV  and  AD0  are  then  sent  to  subroutine  AREAT.  In 
this  subroutine,  the  total  area  denied  is  calculated,  and 
the  speed  reduction  factor,  SRF,  is  returned.  If  SRF  is 
zero,  meaning  that  the  vehicle  is  immobilized  because  it 
cannot  maneuver,  a  return  is  made  to  the  top  of  the  loop. 

If  not,  subroutine  VEGF  is  entered,  and  the  forces  associated 
with  overriding  vegetation  are  calculated.  The  variables 
are  FATl,  the  force  required  to  knock  over  one  tree;  FMT, 
the  maximum  force  needed  to  override  trees;  and  FAT,  the 
average  force  to  override  trees.  Then  a  check  is  made  to 
determine  if  FMT/GVW  is  greater  than  2-g's,  the  horizontal 
acceleration  limit  the  driver  can  stand.  If  it  is  larger 
than  2-g's,  a  return  is  made  to  the  top  of  the  loop,  and  no 
further  calculations  are  performed. 

A  check  is  then  made  to  see  if  the  maximum  force  exceeds 
the  pushbar  force  that  the  vehicle  can  withstand.  If  it  does 
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exceed  this  force,  a  return  is  made  to  the  top  of  the  loop; 
if  the  vehicle  can  stand  the  force,  the  calculations  proceed. 
Variable  TRFU  is  calculated;  it  contains  the  total  resisting 
forces,  in  this  case  due  to  soil  and  vegetation.  In  PATCH, 
this  variable  also  contains  resistances  due  to  slopes  and 
obstacles,  but  neither  of  these  features  occur  in  a  marsh. 

A  check  is  then  made  to  determine  if  the  resisting  forces 
are  greather  than  the  maximum  force  the  vehicle  can  exert 
in  forward  motion.  If  they  are,  the  vehicle  is  immobilized 
in  traction,  and  a  return  is  made  to  the  top  of  the  loop;  if 
not,  subroutine  KURVE  is  entered,  and  a  velocity  (VMTEM)  is 
returned  as  a  starting  velocity  for  subsequent  calculations. 

Next,  a  check  is  made  to  see  if  the  total  resisting 
forces  exceed  the  sum  of  the  forward  forces  that  the  vehicle 
can  exert.  These  forward  forces  consist  of  the  maximum 
force  the  vehicle  can  generate  in  soil,  F0RMX,  plus  the 
forces  associated  with  the  forward  kinetic  energy,  this 
being  based  on  the  velocity  just  determined.  If  the  resist¬ 
ing  forces  do  not  exceed  the  forward  forces,  the  calculation 
proceeds.  It  is  next  necessary  to  determine  if  the  velocity, 
VMTEM,  is  greater  than  2  mph.  If  it  is,  it  is  set  back  to 
2  mph,  because  the  limit  due  to  recognition  in  an  area 
heavily  covered  with  vegetation  is  considered  to  be  2  mph. 
(When  this  point  in  the  calculation  is  reached,  it  is  already 
known  that  the  area  is  covered  with  vegetation.)  It  is  done 
here,  and  not  in  the  PATCH  subroutine,  because  in  PATCH,  it 
is  not  known  at  this  point  whether  or  not  there  is  obscuring 
vegetation.  This  velocity,  VMTEM,  then  is  reduced  by  the 
speed  reduction  factor,  SRF,  calculated  in  subroutine  AREAT. 
The  velocity  is  loaded  into  variable  VEL0C,  and  a  return  to 
the  main  program  is  made. 
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SUBROUTINE  MARSH 


VARIABLES  ENTERING;  2>VClO),SP0lO)7  NSOC  ,  -SDI-GLC)), 
NSSC,  ISGlO},  F0RCRC4,  lot),  IVEL,F0RHx(S),  RT,  GVW, 
W,  P BHT,  PBF 


G=S2.1G 
NSDCH=N<3DC-1 
NSDCP--NSDC+  1 
VM  =  GVW//G 
VEL0C  =0. 

AD0  =  O. 
SDGCNSDC)  = 
sCn^dc) 


IND=IS(X) 

Sa)=3VClN0) 


xntCx)=  SCn<=>dc)**-2.  * 
(i-/s>CO  *h*2.-±./sCe+1)#*2.> 


I  ^  NO/xNTr^ 


C-lll 


RETURN! 


) 


VARIABLE  LEAVING:  VELflJC 


FIG.  C12  cont'd 
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'MARSH 


1100  SU5R0UTINE  MARSH  (  VEL0C) 

,110  C0MM0N  SVC  1  0  >  ,RD(10)  fSD(10)  ,  NSDC  ,SDL(  1  0)  ,NSSC,0S(1O)  , 

;120  4  AAC2.0)  ,0W(1O)  ,0H(1O)  ,0L(  10)  ,SLC(10)  , I  SRC ( 20)  ,  I S (  1  0)  ,  I REC  , 

:1 30  4  I03L,I0BW,I0BS,I0BH,I0BAA  ,  I  GR  ,IPR,IRCI  (3)  f  1ST,  I  0STtSDSC  10), 
;140  4  XNT(IO)  ,S(10)  ,  F0RC EC 2,101)  ,  F0RCR  (4,101)  ,F0RMX<3)  ,TFM(3)  , 

1  50  &  RT,RCI  ,NVEH,NFL,GVW,DL,VID,GT,®,NBC,GC,HPT,ITV@R,RDIAM, 
ilS0  4  TPSI  ,  TPLY  ,  MS  ,  WC  ,  SA I  ,@WPK  E,  GCA  ,  VSS  ,  NCR  EW,  FD,  VFS  ,  TNE1  (2,30)  , 

1 70  &  TTMC2.30) ,TTE(2,30) ,GR(10) , NG , TC ,RR , FDR , EFF , FDREF, I  TRAN , 

'180  4  I  VEL ,  NC 1  ,MC2,NC3,ENTCG,L.0KUP,V00B(2,3O)  ,VRIDF.(20)  ,W,PBHT, 

11904  PBF,NC4,NC5 

200  G=32.1S 

210  C0NF1  =  15. /22. 

j?20  C0MF2=22./1 5. 

230  NSDCM=NSDC-1 

240  NSDCP=NSDC+1 

250  VM=GVW/G 

2(50  D0  100  1=1,  NSDC 

270  I  ND=I  S(  I ) 

;280  S(I)=SV(IND) 

290  100  C3NTINUE 

300  VEL0C  =0.0 

:3 1  0  D3  101  1=1  ,  NSDCM 

320  XNT(I) =S(NSDC)**2*(1 ./SCI) **2-1 ./S(I  +  1)**2) 

!330  IF  (XNT(  I)  )  40 , 40 , 41 

:340  40  SDS(I)  =0. 

,350  G0  T0  101 

'3 SO  41  SDS(I)  =SQRT(S(NSDC)**2/XNT(I)  ) 

3  70  101  CONTINUE 

380  IF  (IS(NSDCYMSSC) 50 ,51 ,51 

390  50  XNT(NSDC) =1 .0 

;400  SDS(NSDC)  =S(NSDC) 

410  GO  T0  52 

420  51XNTCMSDC) =0. 

;430  SDS(MSDC)  =S(NSDC) 

440  52  A  D0  =  O . 0 

450  1  50  D0  300  1=1  ,NSDCP 

490  CALL  AREA V(I ,SD, NSDC , XNT , W ,S ,PA  V) 

470  CALL  AREAT(PAV,AD0  ,SRF) 

480  IF  (SRF)  1  55, 155, ISO 

‘490  1  55  G0  T0  300 

,500  ISO  CALL  VEGFCI-l  ,PBHT,SD,SDS,  SDL,  XNT,W,FAT1  ,FMT,  FAT,  NSDC) 
510  IF  (FMT/GVV-2. 0)1 65,1 65,155 

;520  1  S5  IF  (  FMT-PBF)  1  70 , 1  55 , 1  55 

530  1  70  TRFU=R T+FAT 

;540  IF  (TRFU-F0RMXC2))  1  71  ,171  ,300 

550  171  CALL  K UR VE( TR FU , VMTEM, F0RCR , -2 , I VEL) 

:5S0  IFCRT+FATl -VM*  VMTEM**2/1  1 . S-F0RMX (2) ) 2  SO , 300  ,300 

,570  2  SO  IF  (VMTEM-2. 0)265, 261  ,261 

;5^0  261  VMTEM=2 .0 

590  2 65  VMTEM= VMTEM* SRF 
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2 


MARSH  C0NTINUED 


1600  IF  (VMTEM-VEL0O3OO ,300,270 

,610  270  VEL0C=VMTEM 

620  300  C0NTINUE 

•  630  RETURN 

|640  END 
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Subroutine  HILL  (Fig.  C13) 

Subroutine  HILL  calculates  the  grade  resistance. 
Entering  the  subroutine  are  variables  GRADE,  the  percent 
slope;  GW,  the  gross  vehicle  weight;  and  RT,  the  maximum 
soil  resistance  on  level  ground.  First,  variable  ANGLE, 
which  corresponds  to  percent  slope,  is  calculated;  next, 
RTS,  the  soil  resistance  corrected  for  slope  angle;  and 
finally,  RGU,  the  slope  resistance  plus  RTS,  the  slope- 
corrected  soil  resistance.  Variables  RGU  and  RTS  are  sent 
back  to  the  calling  program. 
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SUBROUTINE  HILL 


FIG. 
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1 


IHILL 


;i590 
1  600 
!l  610 
1620 
1  530 
1640 


SUBROUTINE  HILL(GRADE,RGU,GVW,RT,RTS) 
ANGLErA  TAN  (GRADE/ 100.) 

R  TS=R  T*C  OS(  ANGLE) 

RGU=GVW*SIN(ANGLE)+RTS 

RETURN 

END 
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Subroutine  VISI0N  (Fig.  C14) 

Subroutine  VISI0N  calculates  the  maximum  velocity  over 
a  given  patch  type,  limited  by  the  recognition  distance. 

It  is  assumed  that  the  vehicle  will  be  driven  at  a  safe 
speed,  i.e.,  it  can  be  brought  to  a  stop  within  the  dear- 
view  area  ahead.  The  driver's  reaction  time  is  assumed  to 
be  0.5  sec. 

The  safe  distance  is  the  sum  of  the  distance  traveled 
in  0.5  seconds,  which  is  0.5  x  VELV  and  the  distance 
traveled  during  the  deceleration  from  VELV  to  zero  speed, 
which  is  (VELV)2/2a.  Here  "a"  is  the  deceleration  or  the 
ratio  of  the  braking  force  and  the  vehicle's  mass,  TFM/VM. 
Thus: 


DR  =  0.5  *  VELV  +  (VELV)2/ (2  X  TFM/VM) 

The  solution  of  this  equation  yields: 

VELV  =  [SQRT (0.25  *  (TFM/VM)  **  2  +  2.0  *  DR  * 
TFM/VM)  -  0.5  *  TFM/VM}  *  15./22. 

where: 

VELV  =  the  maximum  safe  velocity,  mph 

DR  =  the  recognition  or  stopping  distance,  ft 

TFM  as  the  maximum  braking  force,  lb  (this  force  is 
assumed  to  be  the  maximum  force  the  vehicle 
could  impart  to  the  soil  if  enough  power  were 
available) 

VM  =  the  mass  of  the  vehicle,  slugs 

15. /22  =  the  conversion  factor  from  ft/sec  to  mph 

If  this  calculated  velocity  is  less  than  2.0  mph,  it  is  set 
to  2.0  mph,  since  this  is  considered  the  lowest  safe  speed 
(based  on  U.S.  Army  experience) . 
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SUBR0UTINE.  VISION 
VARIABLES  ENTERING:  TF0R,DR,  VM 


FIG.  C14 
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1 


VISI0N 


1  6  SO 
■  1  S70 
1675 
;i676 
<1  680 
il690 

;i  700 

‘1710 
1715 
;i  71  s 
'1  720 


SUBR0UTI NE  VISI0N(TF0R,DR,VM, VELV) 
ACC=TF0R/VM 

ARG=.562 5*A CC*  ACC+2  .*DR* ACC 
IF(ARG.LT.O.)G0T0  1 
VELV=SQRTCARG) 75*ACC 
VELVrVELV* 1 5 • /22. 

IF  (VELV.  LE.  2.0)  VELV=2.0 
RETURN 
1  VELV =2. 

RETURN 

END 
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Subroutine  AREA0  (Fig.  C15) 


Subroutine  AREA0  calculates  the  percentage  of  area 
denied  by  obstacles,  assuming  that  they  must  be  avoided. 
(The  avoid-override  decision  is  made  in  PATCH.)  First, 
the  width  of  the  obstacle  at  ground  level  is  calculated. 

If  the  obstacle  is  a  trench,  the  top  is  the  width;  if  the 
obstacle  is  a  mound,  the  bottom  is  the  width.  Next,  the 
area  denied  by  one  obstacle  is  calculated;  this  is  the  sum 
of  the  obstacle  length,  times  the  obstacle  width,  plus  an 
area  created  by  laying  off  one-half  the  vehicle  width  all 
around  the  obstacle.  The  percentage  of  the  area  denied  by 
obstacles  is  calculated  as  the  area  denied  by  one  obstacle, 
divided  by  the  area  of  a  circle  whose  diameter  is  the  mean 
obstacle  spacing. 

At  the  beginning  of  the  program,  a  check  was  made  to 
see  if  the  obstacle's  spacing  type  was  linear.  If  it  was, 
all  obstacles  are  parallel,  are  of  indefinite  length,  and 
lie  across  the  path  of  vehicle  travel.  In  this  case,  the 
percentage  of  the  area  denied  by  obstacles  is  set  to  100 
percent,  which  means  that  the  obstacles  cannot  be  avoided 
and  must  be  crossed.  In  either  case,  variable  AD0  contains 
the  percentage  and  is  returned  to  the  calling  program. 
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SUBROUTINE  AREA0 


VARIABLES  ENTERING;  0BL.,  0BW,  ji0S,W1  T0ST,  0BAA,H 


FIG.  C15 
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1 


iAR  EA0 

« 1 F  40 

SUBROUTINE  AREA0(0BL,0BW,0BS , W, AD0 , I 0ST ,0BAA ,H> 

jl  F  50 

IFCI0ST-1) 1 ,1 ,2 

*1F  SO 

1 

PI  =3, 14159255 

11870 

I  FC  0BAA  .GT. 1 80 . ) G0  TO  3 

11380 

WA  =0BW 

!lS90 

60 TO  4 

:1900 

3 

A  =  (0BAA-13O.)*PI/18O. 

11910 

WA=0BW+2.*H*  C0S(A)/(12.*SIN(A>) 

>920 

4 

AD01  =08L*  WA+(  0BL+ WA ) * W+W* W*P I  / 4 . 

1930 

AD0=AD01 /(0BS*0BS*PI/4.)*1OO. 

1940 

RETURN 

'1950 

2 

A  D0  =  1 00 . 

'i9  60 

RETURN 

19  70 

END 
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Subroutine  0BSTCL  (Fig.  C50) 


Subroutine  0BSTCL  makes  geometric  and  traction  checks 
to  see  if  the  vehicle  is  immobilized  in  crossing  an  obstacle. 
The  equations  defining  various  geometric  interferences  and 
traction  problems  are  derived  in  the  following  mathematical 
analysis.  In  the  Figs.  C16  and  C17,  the  vehicle  and  obstacle 
data  used  in  the  analysis  are  defined  by  drawings.  Next,  the 
vehicle  angle  with  respect  to  the  level  is  calculated  for 
the  three  possible  configurations  of  the  vehicle  on  the 
obstacle  Fig.  C18;  and  then,  several  critical  distances  are 
calculated.  (Figs.  C19-C26)  These  define  the  relation 
between  certain  dimensions  on  the  vehicle  and  corresponding 
dimensions  on  the  obstacle.  Next,  the  geometric  interferences 
possible  on  a  trench  are  defined  in  order  (Figs.  C27-C37), 
followed  by  the  definitions  of  possible  geometric  interferences 
on  a  mound.  (Figs.  C38-C45)  The  next  part  of  the  analysis 
derives  the  value  of  /~l,  the  coefficient  of  friction  used  in 
the  traction  analysis,  and  the  several  cases  of  the  immobili¬ 
zations  caused  by  lack  of  traction  are  derived  mathetmatically . 

In  the  program  itself,  the  various  critical  distances  are 
calculated  first;  then,  all  of  the  interferences  in  a  trench 
are  checked  simultaneously.  Next,  all  the  interferences  on 
a  mound  are  checked  simultaneously;  and  finally,  all  of  the 
traction  problems  are  checked.  The  only  variable  leaving 
this  subroutine  is  IG0.  IG0  is  zero  if  any  geometric  or 
traction  check  indicates  interference  or  lack  of  available 
traction;  if  all  checks  are  passed,  IG0  leaves  the  subroutine 
as  1. 
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VEHICLE  DATA 


obstacle  data 


MOUMD 


/4^  ; 


##VW 


PIG.  C17 
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VEHICLE  ANGLE 


CRITICAL  DISTANCES 


Xl=  VL-WB--^-  =0 
tan  A 

XI  is  positive  when  the 
vehicle  length  is  greater 
than  the  top  width  of  a 
trench  (negative  otherwise) 


FIG.  C19 


FIG.  C20 


FIG.  C21 


XZ  =  TT  +  RW-TAN  ~ - — — r-  =0 

Z  sinA 

X2  is  negative  or  zero  when 
the  vehicle  is  fully  suppor¬ 
ted  on  the  flank  of  the 
obstacle  (positive 
otherwise) . 


X3=VT0*-H2  -vmb 

-+■  RW-tan-§- - —~r  =0 

TAN  A 

X3  is  positive  when  one 
wheel  has  not  yet  entered  a 
trench  and  the  other  wheel 
is  in  contact  with  the 
bottom  and  the  opposite 
flank  (negative  otherwise) . 
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X4  =  VtI*  -H2' 


-WB 


-RW-tan  ~  +  — — — =  O 

£  tanA 


X4  is  positive  when  one 
wheel  has  not  yet  reached 
the  top  of  a  mound  and  the 
other  wheel  is  in  contact 
with  the  bottom  and  the 
opposite  flank  (negative 
otherwise) . 


X5  =  T0  4-  Z'  RVSl  -  TAN 
-  WB  =  O 


A 

2 


X5  is  negative  or  zero  when 
the  vehicle  is  fully  suppor¬ 
ted  on  the  bottom  of  a 
trench  (positive  otherwise) . 


FIG.  G24 


XG>  =  TI  —  2  *  RW  -  TAN  4r 

-WB  =  0 

X6  is  positive  or  zero  when 
the  vehicle  is  fully 
supported  on  the  ground  on 
both  sides  of  a  mound 
(negative  otherwise) . 
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FIG.  C25 


X7  =  TI-5XM  A  -H  -O 

X7  is  negative  when  one 
wheel  is  on  top  of  the 
obstacle  (mound  or  trench) , 
the  other  wheel  is  on  the 
flank  but  not  yet  in  con¬ 
tact  with  the  bottom,  and 
a  line  perpendicular  to  the 
wheelbase  exactly  divides 
in  half  the  top  corner 
angle  of  the  obstacle 
(positive  otherwise) . 


X8  =  \NB 


Z  H 
tan  A 


RW 
tan  | 


X8  is  positive  when  one 
wheel  is  on  top  of  a 
mound  (off  the  flank)  ,  the 
other  wheel  is  on  the 


opposite  flank,  and  a  line 
perpendicular  to  the  wheel¬ 
base  exactly  divides  in 
half  the  top  corner  angle 
of  the  obstacle  (negative 
otherwise) . 
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D5 


r 


X3  <0 
^  X5  >  0 
|  H4  <  H 
DS  >R W 


D5  =EDsxn(A+AV2)-Cec-Rw)cos  (a  +  AV2) 
H4  =  EC  cosAVa  +  rw  Cl-cosAV2.)-EDsrNAVe 


"x*7  >  O 
H  >HS 


H5  = 


C> 


BC-RW  +•  (  H  tas)  AV  ■+• 


RW 


H 


TAM  AV 


TAM  A 


+  RWtan-|^inAV  cosAV 
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GEOMETRIC  INTERFERENCES  ON  A  MOUND 


H7=  H  sin  CA-A V3) 
sxsj  A 


R  W  tan  ~  SIN  AV3 
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CALCULATION  OF  THE  COE FPI C X K-.  NT  OF 
FRICTION,  jll,  USED  IN  TRACT  ION 


The  coefficient  of  friction  is  assumed  to  be  equal  to 
the  maximum  force  that  the  vehicle  can  generate 
divided  by  the  vehicle  weight.  The  force  consists  of 
the  maximum  traction  that  the  vehicle  can  produce  in 
the  soil  plus  the  force  derived  from  the  vehicle's 
kinetic  energy. 

u  F~0RMXCO+  Fkinetic 
GVW 


Kinetic  energy  is  dependent  on  vehicle  velocity,  VV, 
which  must  be  the  least  of: 

VF - Velocity  that  can  be  developed  in  the 

soil . 

V0L.A  -  Velocity  over  obstacles  at  2.5g 
vertical  acceleration. 

Then  kinetic  energy, 

E kinetic  VM  •  VV 

where:  VM  =  vehicle  mass  —  — ^ w • 

G  =  32. 1G 

VV  =  Min  £ VF,V0UA') 


This  energy  is  assumed  to  act  over  a  distance  equal 
to  the  vertical  projection  of  the  slope  height  of 
the  obstacle. 


D  = 


H 

12.  #  tan  A 


F, 


MNETi: 


E 


K  I  NETI C 


D 


Finally  then: 


H-  = 


hgiRMxC?-1) 

GVW 


,  6  •  W2  fan  A 

G  •  H 


0137 


IMMOBILIZATION)  CAUSED  By  LACK  OF 


TRACTION! 


Tracked  vehicle  on  the  approach  flank  of  a  mound. 
It  is  assumed  that  the  largest  angle  that  the 
vehicle  can  achieve  is  equal  to 


In  each  of  the  following  cases,  a  free-body  diagram 
and  the  equations  derived  from  that  diagram  are  shown. 
The  equations  are  solved  for  Al,  the  obstacle  flank- 
angle  producing  an  equilibrium  of  forces.  If  this  is 
less  than  the  actual  flank-angle.  A,  the  vehicle  is 
immobilized  in  traction. 
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Case  1:  A  wheeled  or  tracked  vehicle  entirely 
supported  on  the  flank  of  the  obstacle 
(mound  or  trench) . 


B  =  CGF-  cos  Al  +CGHsim  Al  +RWsin  A1 

Ti=aR, 

T2  ~  Rg 

Tz  cosAl  +  Ti  cos  AI-R^xm  Al- Rzsxn  Al  =0 
T2  sxnA1+T±  '5XnA1+  Ri  cos  Al  +RzcosAl -  GV\N  —  O 
B*  GVW  -  T0C6sAl  (Rz  cosAl  4*  T2  sxnAI) 

4-~T0  sx  ki  Al  C^~Tz  cos  A  1  —  ‘sin  Al1)  ■=  O 

IJT0  =  CGR  +CGF 


These  equations  resolve  to:  Al 


TAN- V* 


Immobilization  occurs  when: 


^X2  <  O 
Al  <  A 
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Case  2: 


A  wheeled  vehicle  with  one  wheel  in  contact 
with  the  bottom  and  flank  of  the  obstacle 

(mound  or  trench) ,  and  the  other  wheel  on 
the  top . 


"~SxnAV  *  H/TfB  T0  -C6F  +  CGR 

B=  CGf? cosAV  -  CGHsxkj  AV  —  RW  sin  A1 

|  Tj.  +TZ  cos  At  At  =0 

Rt  ■+•  R2  cosAl  sin  Al  -  GVW  —  O 
B-GVW  +[H-RWCl-cosAi'i]T1  -^cosAV-RWsxmAI^R^O 


These  equations  resolve  to: 


where:  X=AL  Cl+A-^-Q 

'Y  =  //Q 


Al  =  srN~1,  =JL==, 

Vx2^2' 


-x  Y 

—  TAM  — 


H  =  RW  JUX 

Q-T0  cosAV  -CH-RW^a 
AL^CGR cosAV  -  CGHsxnj  AV 


Immobilization  occurs  when: 


X'Z  >  O 
<  X4  1  O 
Al  <  A 

V. 
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Case  3:  A  wheeled  or  tracked  vehicle  with  one  wheel 
on  the  top  of  a  trench  and  the  other  wheel 
in  contact  with  the  bottom  and  the  opposite 
flank. 


FIG. 


r 


SIM  AV  =  H/T0  T0  -cgf+cgr 

8=  CGFcosAV  -CGH  sxu  AV  +  R W  “sxn  A1 

Tt  R±  "T~2  -y-  R2 

Tz+  Ij.  cos.Al-Ri'oXN  A1  =0 

R2  -  GVW  +Tl  sxn  A1  +  Ri  cosAl  *  O 

B-GVW- (T0cosAV  +RWsinA1')R2-[H-RNNCi-cosA1)] T2  *0 


These  equations 


resolve  to:  SIN 


rl 


i  —  TAN 


-1 


NNHER£;  X”  At- 

V=/xQ 

2.= 

Q  -  T0  cosAV  -+Ch-RW>/4. 
AL=  CGF  cosAV  —  CGHsxnAV 


Y 

X 


Immobilization  occurs  when: 


,”X3  >0 
A1  <  A 
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SUBR0UTINE.  0BSTCL 


VARIABLES  ENTERJNG:  NVEH,GV  W7  GC,  F0RCR  C4,  101)?TVEL, 
F0RMXCS\  R GUK,  V00B<j273o},  NC4-,  H,  WB,  0BAA7TL7  FEC, 
vaa,rectvpa,^ge,cgh7  GWStRvv,  ACS.DCS,  RW\n,  HC 


PI=3. 14 159  265- 
PI  D=  PI /1QO. 
A=0BAA 
cgr  =  tl-cgf 

WBI  =WB#  12. 

G  =  32.1G 
NV=NVEH+1 

ow  f= fec/tan  (vaa') 

+Rw  *TAN  CvAA/2.^ 
DWR  =REC/TAM(yDA) 
+R  W*  TAN  (VQA/2.) 


-HBC=GC 


EA=VAA 

ec^fec 

ED=DFW 


BC=100. 


EA=VDA 
EC  =  RE.C 
ED = DRW 


VL  =TL+DFW+  DRW 


a=a*  pid 

SA2  =  GIN(A/2.') 

SA  =  SINCAV) 

CA2  =  C(ZSCA/2-') 

CA=C0S(A') 

TA2  =  SA2/CA2 

TA=  SA/CA 

/  RGUK,  \ 
-W  FQ&RCR,  V 
\-l,XVEL  / 


W=V0LA*  22../15. 


VV=VF*22./l5. 

I 

MU=F0RMXO2VGVW 
+  V V* V V*  6.  -it  TA/CG*  H') 
ATM  =  ATAN  Cmd^> 


FIG.  C50 
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Xl-  =  VL-WBr-2.*-H/TA  X2  =TI  +RVMT-H/SA 

X2~  SQRT(-r^*T0-H*H)-'WBi  +  RW/T  -W/TA 

X4  =  ^QR-T  CtI*tI-  H-^H)  -VJBI  -  R  WT  +  H/tA 

X5  =  T!J+2.*(?WT  -WBI  =  TI  -2.*RWT-VvJBI 

X7=-~TT*‘SA2.-H 

XS  =■  wer  -  2..*H/tA  -RW/ta2.  -  (v-rw/saz1) /CA2, 

Hl  =  .5*Cvi--WBI>*TA  H2  =  EC*CA  +  RWC  -ED*5A 
H3=  EC-iKrCAV  +RW#Cl.-CAV)  "ED^SAV 
H4  -  BCXC0S(rAV2.')  +  RW1  Cl  C0S  Cav  ?o)  -edaein  Cav2) 
H5  =  (L>  +  (H^TAV  +  Rw/tAV  +  H/tA+RWt)*  SAv”) CAV 

FIG.  C50  cont'd 
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YES/^  nt 


ALPHA  =  CGF*CAV-CGH*SAV 
Q  =  T0-*  CAV  +CH-RW)-*  MU 
X-  ALPHA  *  Cl.  +  MU  «  MU') -Q 
Y  =  MU*Q  H  =  -RW#MU*MU 
Al=  ASI  Ni  (z  /SQRT(X*X  +Y*Y»  -ATAN  (Y/X) 


JSO^Al 

\<A 


YES 


ATM, 


H9>\VES 


X2NJES 

>0. 


ALPHA  =  CGR-*  CAV  -CGH  -**f  SAV 
Q  —  "T0  *CAV  -  CH-RW)  *  MU 

X  =  Alpha  *(>•■*•  mu*  mu)- q 
Y-MU*Q  E=RW*MUItMU 

Al-ASIN  (z/SQRT  (X*X  +  Y*Y))-ATAN  (Y/x) 


noXAI 

”^\<A 


C-146 


1 


:0BS  TCL 


.1990 
[2000 
12010 
j2020  & 

'2030  & 
[2040  & 
2050  Sc 
[20  SO 
2070 
12080 
|2090 
12100 
!21 10 
[2120 
.2130 
2140 
[2150 
12160 
121  70 
2180 
12190 
2200 
*2210 
2220 
2230 
2240 
2250 
22  60 
[22  70 
2280 
2290 
2300 
2310 
■2320 
2330 
2340 
12350 
23  60 
2370 
|2380 
2390 
2400 
2410 
2420 
12430 
2440 
■  12450 
2460 
2470 
2480 


SUBROUTINE  OBSTCLCRGUK , I VEL , I G0) 

REAL  MU 

C0MM0N  IPATCH(325) , FORCE (2 ,101) ,F0RCR(4, 101) .F0RMXC3) , 
TF0R (3) ,RT,RCI , NVEH , NFL, GVW,DL, WI D, GT,A0 , NBC ,GC ,HPT, ITVAR, 
RDIAM,TPSI  ,TPLY,HS,WC,SAI  ,AWPKF,GCA  , VSS,NCRDW,FD,VFS, 

I TRACTC399) ,V00B(2,3O) ,VRIDEC20) ,W,PBHT,PBF,VLL,NC4,NC5, 
H,WB,0BAA,TL,FEC,VAA,REC,VDA,CGF,CGH,GWS,RW,ACG,DCG,HC,RWW 
PI  =3. 1  4159265 
PID=PI/180. 

A=OBAA 
CGR  =  TL-CGF 
WBI  =WB*  1 2  • 

G=32.1 6 

DFW  =  FEC*C0S(VAA)/SIN(VAA)+RW*SIN(VAA/2.)/C0SCVAA/2.) 
DRW=REC*C0SCVDA)/SIN<VDA)+RW*SIN(VDA/2.)/C0S(VDA/2.) 
NV=NVEH+1 
BC  =  GC 

IF(NV.EQ.1)BC  =  100. 

I  FCVAA  .LE.VDA)  G0T0  10 

EA  =  VDA 

EC=R  EC 

ED=DRW 

GOTO  11 

10  EA  =  VA  A 
EC  =  FEC 
ED=DFW 

11  VL=TL+DFW+DRW 
IFC180. -A)  13,90,12 

12  A =180 .-A 
NT  =  1 
GOTO  14 

13  A  =A  - 180  • 

NT=2 

14  A  =A*PI D 
SA  =SI  N (A) 

CA=C0S(A) 

TA  =SA/CA 
SA2=SIN(A/2.) 

CA2  =C0S(A/2  .) 

TA2  =SA2/CA2 

CALL  KURVE(RGUK,VF, F0RCR ,-l ,IVEL) 

CALL  CURVECH , V0LA , V00B , NC4) 

I F(VF. GT.V0LA) GOTO  1 
VV  =  VF*22./15. 

GOTO  2 

1  VV=V0LA*22 . /I 5 ♦ 

2  MU  =  F0RMX (2)  /GVW+6.*  VV*VV*TA/<  G*H) 

ATM=A  TAN(MU) 

GOTO  (  1  5 , 1  6, 1  7)  ,  NV 

15  TIsAMINl  (CGF,CGR) 
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'08STCL 


2490 
2500 
2510 
2520 
12530 
2540 
'2550 
2560 
2570 
2  571 

2572 

2573 

2574 

2575 

2576 

2577 

2579 

2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2  670 
2680 
2  590 
2700 
2  710 
2  720 
2730 
2740 
2750 
2760 
2  770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
28  50 

,  28  60 
28  70 
2880 
2890 
2900 


C0NTINUED 


DS  =  TI 
G0T0  18 

16  TI=TL 

DS  =  1  . 75*RW 
G0T0  18 

17  TIzGWS 
DSrl . 75*R W 

18  T0=TL 
U=BC-RW 
V= TI/2. 

UtJ=PI-2.*ASINCRw/S0RT(U*U+\^V)> 

IFCU)  41,42,43 

41  BCA  =ULH-2.*ATAN(-U/V) 

G3T0  44 

42  BCArUU 
G0T0  44 

43  BCA:UU-2,*ATAN(U/V) 

44  C0NTINUE 

IF(NT.E0.2.AND.WBI+2.*H/TA.LT.DS)G0T0  90 

SAV:H/T0 

AV=@SI  N(SAV) 

CAV=SQRT(1  ,-SA V*3A V) 

TA  V=SA  V/CA  V 
RWT=R  W*TA2 
RWC=R  W*C1  ,-CA) 

AV2=A-ASINC(WBI*SA-2.*RWC)/T0) 

A  V3  =A  SI  N  (  ( 2  .*R  WC+WBI*  SA  )  /TI  )  -A 
IF(H.LT.BC.AND.H.LT.EC.AND.H.LT.RW)G0T0  90 
XI =VL-WBI-2.*H/TA 
X2=TI+RWT-H/SA 

X3=S0RT(T0*T0-H*H)-VBI+RWT-H/TA 

X4=SQRT(TI*TI  -H*H)  -WBI  -RWT+H/TA 

X5=T0+2.*RWT-WBI 

X6=TI-2.*RWT-WBI 

X7=TI*SA2-H 

X8  =  WBI-2.*H/TA-RV/TA2-(TI  /2 •  -RW/SA2)  /CA2 

HI =  •  5*  ( VL-WBI ) *TA 

H2=EC*  CA+RWC-ED+SA 

H3  =  EC*CAV+RW*<1  . -CA V) -ED*SA V 

H4=EC*C0SCAV2)+RW*(I  . -C  0S (A V2 > ) -ED*SI N(A  V2  ) 

H5=CBC-RW+(H*TAV+RW/TAV+H/TA+RWT(*SAV>*CAV 

H6=H-(RWC-.5*(TI-WBI)*SA)/CA 

H7=H*  SI  NCA-AV3)  /SA-R  WT*SI  N(AV3) 

H8=DCG*C0S(ACG+ATM) 

H9-HC/  SIN(ATM)-(RWW-H)/MU 
DO =.5* (WBI -T0)*  SA+CH-EC+R W)*CA 
D2=WBI*SA+RW*(2.*CA-1  .) 

D3  =  ED*SINC2.*A)-CEC-RW)*C0S(2.*A) 

D4  =  ED*SIN(A+AV)-(EC-RW)*C0S(A+AV> 

D5  =  ED*SIN(A+AV2)-(EC-RW)*C0S(A+AV2) 
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;0BSTCL 


'2910 
&920 
;2930 
|2940 
12950 
|29  SO 

129  70 
:2980 
12990 
13000 
13010 
3020 
:3030 
3040 
13050 

130  SO 
*30  70 
;3080 
3090 
'3100 
■3110 
3120 
13130 
'31  40 
13150 

131  GO 
|31  70 
3180 
*3190 
13200 
j32  1  0 
'3220 
'3230 
13240 
’3250 
j32  SO 
,32  70 
“3280 
13290 
,3300 
'3310 
13320 
13330 
3340 
13350 
■3360 
'3370 
i3380 
[339  0 
'3400 


CONTINUED 


G0T0C  50  ,20) ,  NT 

20  I F(X1 )21 ,22,22 

21  IFCEA.LT. A. AND. HI  .GT.EOG0T0  91 
G0T0  23 

22  IFCH.GT.EC.AND.D1  ,GT.RW)G0T0  91 

23  IF(X2)24,24,25 

24  IFCEA.LT. A) G0T0  91 

I FCH2 .LT.H .AND.D2 .LT.D3) G0T0  91 
G0T0  26 

25  IFCEA.LT. AV)G0T0  91 

IFCH3. LT.H. AND. D2.LT.D4) G0T0  91 

26  IFCX3)2S ,27,27 

27  IFCH3. LT.H. AND. RW.LT.D4) G0T0  91 
G0T0  29 

28  IFCX5.GT.0. . AND. H4. LT.H. AND. R W.LT.D5) G0T0  91 

29  IFCX5.LE.O..AND.EC.LT,H.AND.EA.LT.A)G0T0  91 
IFCNV.EO.  DG0T0  70 

I FCX7) 30 , 30 , 3 1 

30  IFCBCA.GT.PI-A)G0T0  91 
G0T0  70 

31  IFCH5.LT. H)G0T0  91 
G0T0  70 

50  I FCNV.EQ . 1 ) G0T0  53 
I FCX6) 51 ,52,52 

51  I  FCH6.GT.BC)  G0T0  91 
G0T0  53 

52  I FCH.GT.BC) G0T0  91 

53  IFCH.GT.FEC.AND.VAA .LT.A) G0T0  91 
IFCX4) 54,54,55 

54  IFCX2.GT.O..AND.EA.LT.AV/)G0T0  91 

I  FCX7.GT.O..AND.H.GT.H5.AND.NV.NE.DG0T0  91 
G0T0  56 

55  IFCX6.GE.O.)G0T0  56 
IFCEA.LT.AV3.AND.NV.  NE.l  )G0T0  91 
IFCBC  .LT.H7.AND.NV.NE.  1)  G0T0  91 

56  I FCBCA  . GT.PI  -A  .©ND.X7.LE.0.  .AND.X8.GE.0.  .AND.NV.NE.l)  G0T0  91 

70  IFCX2.LE.O..AND.MU.LT.TA)G0T0  91 
IFCNT.EQ  .1  .0R.X3.LT. O.)G0T0  71 
ALPHA  =CGF*CAV-CGH*SAV 

Q  =T0*C  A  V+CH-R  W)*MU 
XrALPHA*Cl  .+MU*MU)-Q 
Y  =  MU*Q 
Z=-RW*MU*MU 

A1  =ASINCZ/SQRTCX*X+Y*Y))-ATANCY/X) 

IFCA1  .LT.A)  G0T0  91 

71  IFCNV.EQ.DG0T0  72 
IFCX2.LE.O.)G0T0  90 
G0T0  75 

72  IFCA.GT.ATM.AND.H9.GT.H8)G0T0  91 
G0T0  90 
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0BSTCL  CONTINUED 


i 


3410 

75 

ALPHA  =CGR*CA  V-CGH*SA  V 

3420 

Q=T0*CAV-(H-RW)*MU 

'3430 

XrALPHA*  (  1  ,+MU*MU)  -Q 

3440 

Y  =  MU*Q 

'3450 

Z=R  W*MU*MU 

34  SO 

A 1  =ASIN(Z/SQRTCX*X+Y*Y))-ATAN(Y/X) 

3470 

IFCAl .LT.A) G0T0  91 

3480 

90 

IG0  =  1 

3490 

RETURN 

•3500 

91 

IG0=O 

'3510 

RETURN 

3520 

END 
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Subroutine  0BSF  (Fig.  C51) 

Subroutine  0BSF  calculates  the  average  force  needed  to 
override  a  series  of  vertical  obstacles.  This  force  is 
added  to  the  other  resisting  forces  in  determining  vehicle 
speed  as  limited  by  power  and  traction.  The  force  is 
obtained  by  dividing  the  work  done  to  override  one  obstacle 
by  the  distance  between  encounters  of  that  obstacle  type. 

First,  I0ST,  which  is  equal  to  the  obstacle  spacing 
type,  is  checked.  I0ST  =  1  for  random  spacing  (obstacles 
arranged  at  random) ,  and  I0ST  =  2  for  linear  spacing 
(obstacles  running  parallel) .  If  the  spacing  is  random, 
the  following  equation  is  used: 

F0M  =  GVW  *  HFT/  (PI  *  0BS  *  0BS)/(4  *  W) 

Where: 

F0M  =  the  average  force  to  override  obstacles,  lb 

GVW  =  the  vehicle  weight,  lb 

HFT  =  the  vertical  height  of  the  obstacle,  ft 

0BS  =  the  mean  spacing  between  obstacles,  ft 
W  =  the  width  of  the  vehicle,  ft 
PI  =  3.14159265 
If  the  spacing  is  linear: 

F0M  =  GVW  *  HFT/0BS 
Note  that: 

Work  =  GVW  *  HFT 


And: 


Area  for  1  obstacle  =  (PI  *  0BS  *  0BS)/4. 
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The  effective  distance  between  encounters  of  obstacles 
is  equal  to  the  area  of  a  circle  whose  radius  is  the  average 
obstacle  spacing  divided  by  the  vehicle  width.  (This  has 
been  found  from  past  field  testing  by  the  WES.)  However,  if 
the  obstacle  spacing  type  is  linear  rather  than  random,  the 
distance  between  encounters  is  simply  the  obstacle  spacing. 
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SUBROUTINE  0BSF 


VARIABLES  ENTERING:  GVW,  H,  <Z>B5,  w,  <?BL,  I!SST 


VARIABLE  LEAVING!  F0h 


FIG.  C51 
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1 


10BSF 


! 

1 

!1  740 
11750 
ll  760 
]1  770 
jl780 
11790 
11800 
11810 
U*20 


SUBR0UTI  NE  0BSF(GVW,H,0BS,W,0BL,F0M,I0ST) 

PI =3. 14159265 

HFT=H/12. 

IFCI0ST-1)  1,1,2 

1  F0M=GVW*HFT/(PI*0BS*0BS)*4.*W 
RETURN 

2  F0P1=GVW*HFT/0BS 
RETURN 

END 
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Subroutine  AREAV  (Fig.  C52) 


Subroutine  AREAV  calculates  the  percentage  of  the  total 
area  denied  by  trees.  The  first  part  calculates  the  average 
stem  diameter  to  be  avoided,  variable  SDA,  by  first  accumula¬ 
ting  two  values:  one,  the  total  of  the  diameters  of  all 
stems  in  the  area  considered,  variable  SUMI;  and  the  other, 
the  total  number  of  stems  in  the  area  considered,  variable 
SUMT.  Variable  XNT,  which  contains  the  number  of  stems  of 
each  stem  diameter  in  the  area,  is  multiplied  by  the  diameter 
of  the  stems,  and  the  values  are  accumulated  in  variable  SUMI. 
XNT  is  also  accumulated  in  variable  SUMT,  from  stem  diameter 
MSD  (one  of  the  variables  entering  the  subroutine)  to  the 
largest  stem  diameter  in  the  area,  to  obtain  the  total  number 
of  stems  (trees) .  Subroutine  AREAV  is  called  repeatedly, 
and  MSD  is  indexed  upward  by  one  class  each  time  it  is 
called.  The  average  stem  diameter  to  be  avoided  is  equal  to 
SUMI,  the  total  of  the  diameters,  divided  by  SUMT,  the  total 
of  the  number  of  trees  in  the  area. 

Finally,  the  percentage  of  the  area  denied  by  vegetation 
is  calculated  as  follows,  based  on  this  average  stem  diameter* 
Two  areas  are  considered;  the  first  is  the  area  of  a  circle 
whose  radius  is  the  average  stem  diameter  plus  the  vehicle 
width,  and  the  second  is  the  area  of  a  circle  whose  radius 
is  the  mean  spacing  of  all  stems  in  diameter  class  MSD  or 
larger  in  the  area  being  considered.  The  first  area  divided 
by  the  second  and  multiplied  by  100  yields  the  percentage 
of  the  total  area  denied  by  the  trees;  this  is  variable  PAV. 

If,  at  the  end  of  the  accumulation  of  stem  sizes,  it  is 
found  that  there  are  no  trees  in  the  area  (SUMT  =  0) ,  the 
percentage  of  the  area  denied,  PAV,  is  set  to  zero.  In 
either  case,  an  exit  is  made  from  this  subroutine. 
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SUBR0OTXME  AREAV 


FIG.  C52 
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1 


lAREAV 


,2770 
'2780 
12785 
,2790 
'2800 
12810 
,2820 
'2830 
128  40 
,'2850 
'28  SO 
,2870 
'2880 
|2890 


SUBROUTINE  AREA  VC  MSD ,  SD.,  NSDC  ,XNT,  W,S  ,PA  V) 
DIMENSION  SDC10)  ,SDSCOO)  .XNTC10)  ,SC10) 

I FC MSD* GT*  NS DC) GOTO  2 
SUMD=0. 

SUMT=0. 

DO  1  I=MSD,NSDC 
SUMD=SUMD+SDCI)*XNTCI) 

1  SUMT=SUMT+XNT(I) 

IFCSUMT,E0.O.)G0T0  2 

PAV  =  CSUMD/C12.*SUMT)+W)**2*100./CSCMSD)*SCMSD)) 
RETURN 

2  PAVrO. 

RETURN 

END 
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Subroutine  VEGF  (pig.  C53) 

Subroutine  VEGF  calculates  the  forces  associated  with 
overriding  vegetation:  FATl,  the  force  required  to  over¬ 
ride  one  tree;  FMT ,  the  maximum  force  required  to  override 
all  trees;  and  FAT,  the  average  force  required  to  override 
all  trees.  This  subroutine  is  called  nine  times  from  PATCH. 
The  first  time,  the  incoming  variable  MD  is  zero,  indicating 
that  all  trees  are  being  avoided;  therefore,  FATl,  FMT  and 
FAT  are  set  to  zero,  and  a  return  is  made.  For  other  values 
of  MD  (1  through  8) ,  varying  numbers  of  tree  sizes  are  being 
overridden.  For  example,  when  MD  =  1,  stem  diameters  of 
class  1  are  being  overridden,  and  all  others  are  avoided; 
when  MD  =  2,  stem  diameters  of  classes  1  and  2  are  being 
overridden,  and  all  others  are  avoided;  etc.  Next,  a  check 
is  made  to  see  if  the  mean  spacing  of  stem  diameter  class  1 
is  greater  than  zero.  If  it  is  not,  an  exit  is  made  from 
the  subroutine.  Then,  the  maximum  stem  diameter  to  be  over¬ 
ridden  is  calculated  as  variable  SDM,  taken  to  be  the  upper 
limit  of  the  largest  stem  diameter  class  to  be  overridden 
as  indicated  by  the  variable  MD. 

The  force  to  override  one  tree,  FATl,  based  on  the 
maximum  stem  diameter  to  be  overridden,  is  calculated  next, 
followed  by  the  calculation  of  FMT,  the  maximum  forces 
involved  in  overriding  stems.  FMT  is  based  on  the  pushbar 
height  of  the  vehicle  versus  the  stem  diameter.  Variable 
TFAT  is  then  calculated.  This  is  a  summation  of  the  work 
required  to  override  all  diameter  classes  of  trees  to  be 
run  over. 

Finally,  a  loop  is  entered  in  which  the  stem  diameter 
sizes  and  the  associated  forces  are  accumulated  from  1=2 
to  MD,  the  largest  tree  to  be  overridden;  and  the  variable 
FAT,  the  average  force  to  override  trees,  is  calculated. 

FAT  is  equal  to  TFAT,  the  total  work  required  in  overriding 
trees,  divided  by  a  quantity  equal  to  the  area  of  a  circle 
whose  radius  is  the  mean  spacing  for  the  given  stem  diameter 
class  divided  by  the  width  of  the  vehicle.  The  three 
variables  -  FATl,  FMT,  and  FAT  -  are  now  returned  to  the 
calling  program. 
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SUBROUTINE  VEGF 


FIG.  C53 
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1 


VEGF 


'2540 
I2550& 
2560 
2570 
;2580 
,2590 
2600 
2610 
2  620 
’2  630 
2  640 
,2  650 
*2  660 
12670 
2680 
2690 
'2700 
2710 
2720 
2730 
2740 
2750 


SUBR0UTI  NE  VEGF(MD,PBHT,RD,SDS,SDL,XNT,W,DAT1 ,FMT,FAT, 
NSDC) 

DIMENSI0N  S DC  1 0 > ,SDS(10) ,XNT(10) ,SDL(10> 

PI=3. 14159265 
IF  (WD)  15  15,5 
5  IF  (SDS(MD<)7,7,25 
7  RETURN 
25  SDM=SDL(MD) 

FAT1  =9  •  6551  *SDM**3 
FMT=(40.-PBHT/2.)*SDM**3 
TFAT=XNTCMD  )  *SDCMD)**3 
D0  10  I=2,MD 
IND=MD+1-I 

TFAT=TFAT+XNT(  I  ND)*SD(I  ND)**3 
10  C0NTINUE 

FAT  =  4.*100.*TFAT/CPI*SDS(NSDC)**2)*W 
RETURN 
15  FAT1  =0 . 

FMT=0. 

FAT=0 . 

RDTURN 

END 
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Subroutine  AREAT  (Fig.  C54) 


Subroutine  AREAT  takes  the  area  denied  by  both 
vegetation  and  obstacles  and  determines  a  speed  reduction 
factor  due  to  the  necessary  maneuvering.  The  speed 
reduction  factor  is  a  fraction,  equal  to  or  less  than  one, 
that  multiplies  the  vehicle  actual  speed  to  obtain  the 
effective  speed  across  a  patch.  For  example,  if  the  vehicle 
must  travel  twice  as  far,  due  to  maneuvering,  the  speed 
reduction  factor  is  0.5. 

The  percentage  of  total  area  denied  is: 

ADT  =  AD0  +  PAV  *  (100.  -  AD0)/1OO 


where: 


ADT  =  total  percentage  of  area  denied 
AD0  =  percentage  of  area  denied  by  obstacles 
PAV  =  percentage  of  area  denied  by  vegetation 
If  ADT  10: 

SRF  =  1.0; 

If  ADT  50, 

SRF  =  0.0; 

Otherwise: 


SRF  =  1.0  -  (ADT  -  10.)/40.0 


Where: 


SRF  =  speed  reduction  factor. 

Note  that,  since  the  trees  are  assumed  evenly  spaced, 
some  trees  will  be  in  the  area  denied  by  obstacles. 
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SUBROUTINE  AREAT 


VARIABLE  LEAVING:  SRF 


FIG.  C54 
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AREAT 


I 

’2990 
3000 
3010 
3020 
’3030 
30  40 
30  50 
30  60 
30  70 
’3080 
•3090 
3100 


SUBR0UTI  NE  AREAKPA  V  tAD0  ,SRF) 
IF(PAV.GT.5O..0R.AD0.GT.5O.)G0T0  6 
ADT=A  D0+PAV*(  1OO.-AD0) /100. 

IF  (ADT-lO.)l  ,1  ,5 
1  SRFsl.O 
RETURN 

5  IF  CADT-50  •)  7, 6, 6 

6  SRFrO.O 
RETURN 

7  SRFrl  ,0-(ADT-10.0)/40.0 
RETURN 

END 
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Subroutine  RIVER  (Fig.  C55) 

Subroutine  RIVER  calculates  the  time  penalties  for 
crossing  a  river  and  for  ingress  and  egress.  The  program  is 
in  four  parts:  In  the  first  part,  the  time  penalty  for 
fording  the  river  is  calculated  if  the  vehicle  can  ford;  in 
the  second,  the  time  penalty  for  swimming  is  calculated  if 
the  vehicle  can  swim,  and  the  water  is  too  deep  to  ford;  in 
the  third,  a  rafting  penalty  is  assigned  if  the  vehicle  can 
neither  swim  nor  ford;  and  in  the  fourth,  the  time  penalty 
for  egress  is  calculated.  First,  a  check  is  made  to  deter¬ 
mine  whether  the  water  depth  is  greater  than  the  fording 
depth.  If  it  is,  the  vehicle  cannot  ford,  and  an  exit  is 
made  to  the  swimming  portion  of  the  program;  if  the  vehicle 
can  ford,  a  check  is  made  on  water  speed.  If  the  water  speed 
is  greater  than  11  mph,  the  vehicle  cannot  successfully  ford, 
and  an  exit  is  made  to  the  rafting  portion  of  the  program; 
if  the  water  speed  is  less  than  11  mph,  a  check  is  made  on 
vehicle  type.  If  the  vehicle  is  tracked,  the  fording  calcula¬ 
tion  is  unnecessary,  and  an  exit  is  made  to  a  later  part  of 
this  portion  of  the  program;  if  the  vehicle  is  wheeled, 
intermediate  calculations  must  be  performed. 

First,  variable  THM,  the  maximum  dropoff  angle  before 
belly  hangup,  is  calculated.  If  this  is  less  than  the 
ingress  bank  angle,  there  must  be  a  call  to  subroutine  DIG 
to  determine  the  time  penalty  for  excavating  the  ingress 
bank  until  the  vehicle  can  successfully  enter  without  belly 
hangup.  This  time  penalty  returns  as  ATP  and  is  loaded  into 
a  variable,  TP,  which  accumulates  the  ingress  and  egress 
penalties.  Next,  the  vehicle  approach  angle  is  calculated, 
and  5  degrees  are  added  to  it.  This  is  checked  against  the 
bank  angle  of  the  river.  If  this  angle  is  less  than  the 
bank  angle,  a  nose-in  hang-up  would  occur,  additional  excava¬ 
tion  is  necessary,  and  another  call  go  DIG  is  made.  The 
time  penalty  returns  as  ATP  and  is  accumulated  into  variable 
TP.  Next,  variable  TV,  the  velocity  made  good  in  crossing 
the  river,  is  calculated.  It  is  simply  equal  to  the  vehicle 
fording  speed.  Next,  variable  TN,  the  time  required  to  cross 
the  river,  is  calculated  from  the  speed  in  crossing  and  the 
width  of  the  river.  An  exit  is  now  made  to  the  egress  routine. 
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If  the  swimming  routine  has  been  entered,  a  check  is 
first  made  to  see  if  the  vehicle  swimming  speed  is  greater 
than  zero,  i.e.,  to  see  if  the  vehicle  can  swim.  (If  it 
cannot,  an  exit  is  made  to  the  rafting  portion  of  the 
program.)  A  check  is  then  made  to. see  if  the  water  speed 
is  greater  than  the  vehicle  swimming  speed  times  an  auxiliary- 
water  propulsion  factor,  which  takes  into  consideration 
such  things  as  shrouding  and  water  jets.  If  the  water  speed 
is  too  great,  an  exit  is  made  to  the  rafting  portion  of  the 
program?  if  not,  further  computations  in  the  swimming  portion 
of  the  program  are  continued.  First,  the  effective  bank 
height,  EBH,  is  calculated.  This  is  the  height  from  the  top 
of  the  ingress  bank  to  a  point  below  water  level  equal  to 
the  fording  depth  or  draft  height  of  the  vehicle.  A  check 
is  then  made  against  the  vehicle  ingress  swamp  angle.  If 
this  is  less  than  the  bank  angle,  THI,  a  call  is  made  to 
DIG  to  calculate  a  penalty  for  excavation.  This  penalty 
returns  as  ATP  and  is  loaded  into  variable  TP.  Next,  a 
check  is  made  on  vehicle  type.  If  the  vehicle  is  tracked, 
most  of  the  calculations  in  this  portion  of  the  program  are 
unnecessary,  and  control  is  directed  to  the  last  part  of  the 
swimming  model.  If  the  vehicle  is  wheeled,  a  check  is  made 
on  the  belly  clearance  of  the  vehicle.  If  the  vehicle  will 
hang  up  on  its  underbelly,  another  call  to  DIG  must  be  made 
for  further  excavation.  This  time  penalty  returns  as  ATP 
and  is  accumulated  in  variable  TP.  Finally,  from  the  last 
equations  of  this  portion  of  the  program,  TV,  the  velocity 
made  good  in  crossing  the  river,  is  calculated.  This  takes 
into  consideration  the  water  speed  that  will  cause  the 
vehicle  to  travel  downstream  as  it  crosses  the  river.  When 
this  velocity  is  known,  the  time  penalty  for  crossing  is 
calculated  by  using  the  river  width.  This  is  loaded  into 
variable  TN,  and  an  exit  is  made  to  the  egress  portion  of 
the  program. 

If  the  rafting  routine  has  been  entered,  water  speed 
is  first  checked  to  see  whether  it  is  greater  than  11  mph. 

If  it  is,  a  time  penalty  of  180  minutes  is  assigned  for 
constructing  a  raft?  if  the  water  speed  is  less  than  11  mph, 
rafts  can  be  constructed  in  shorter  periods  of  time,  but 
this  time  is  dependent  upon  the  water  speed.  If  the  vehicle 
weighs  less  than  28,000  lbs.,  the  time  penalty  for  construct¬ 
ing  a  raft  is  25  minutes?  if  it  weighs  between  28,000  and 
42,000  lbs.,  the  time  penalty  is  45  minutes?  and  if  it 
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weighs  more  than  42,000  lbs.,  the  time  penalty  is  90  minutes. 
After  this  penalty  has  been  assigned,  the  velocity  for 
crossing  the  river  is  assumed  at  0.68  mph,  since  this  is 
approximately  the  rate  at  which  a'  raft  can  be  maneuvered 
across  a  river.  The  time  penalty  in  crossing,  TN,  is  cal¬ 
culated  from  the  river  width,  and  an  exit  is  made  to  the 
egress  portion  of  the  program. 

The  egress  portion  of  the  program  is  based  on  the 
calculation  of  the  severity  factor,  SF.  This  is  an  empirical 
factor  based  on  the  experience  of  engineers  at  TACOM.  The 
severity  factor  is  an  equivalent  step  height  assigned  to 
each  exit  bank.  This  is  compared  with  the  step  height  the 
vehicle  is  capable  of  climbing.  Next,  the  program  accumulates 
the  severity  factors  for  each  of  the  distinct  slopes  on  the 
bank.  In  this  generation  of  the  model,  only  one  slope  is 
allowed,  and  this  loop  is  therefore  ignored.  Next,  a  check 
is  made  to  see  if  the  bank  severity  factor  exceeds  the  step 
height  that  the  vehicle  can  negotiate.  If  it  does  not,  no 
further  time  penalties  are  assigned,  and  a  return  is  made  to 
the  calling  program.  If  it  does,  a  check  is  made  to  see  if 
the  severity  factor  is  greater  than  two  times  the  step  height 
the  vehicle  can  manage.  If  it  is  not,  a  time  penalty  is 
calculated  based  on  the  difference  between  the  severity 
factor  and  the  step  height  the  vehicle  can  manage;  if  it  is 
greater,  excavation  is  necessary;  and  variable  ESL,  the 
effective  slope  of  the  bank,  and  ESLH,  the  effective  height 
of  the  bank,  are  calculated.  Then  the  traction  that  the 
vehicle  can  generate  on  this  bank  is  calculated,  using  c, 
the  soil  cohesion,  and  ,  the  angle  of  the  repose  of  the 
soil.  If  the  vehicle  has  a  winch,  the  winch  capacity  is 
added  to  this  tractive  force.  A  traction-limited  slope 
angle,  THEM,  is  then  calculated.  If  this  traction-limited 
slope  is  less  than  the  effective  slope  of  the  bank,  excavation 
is  necessary,  and  a  call  to  subroutine  DIG  is  made  to  reduce 
this  slope  to  an  angle  that  the  vehicle  can  climb,  based  upon 
available  traction  and  winch  capacity.  This  time  penalty 
returns  as  variable  ATP  and  is  accumulated  in  variable  TP, 
which  carries  the  penalties  for  ingress  and  egress.  If  the 
vehicle  has  a  winch,  an  additional  10-minute  setup  time  is 
added  to  time  penalty  TP.  The  two  variables  leaving  the 
program  are  TN,  the  time  for  crossing  the  river  either  by 
fording,  swimming,  or  rafting,  and  TP,  the  time  penalties 
associated  with  ingress  and  egress. 
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SUBR0DTINE  RIVER 


VARIABLES  ENTERING:  NVEH,  GVWtGC,HS,  WC,GAI, 

Awpkf,  gca,ves,  ncrew,  FD,VFS,VV,  wb,wd,  thx, 
BHI,  RW,  TAM  C,  NP.X,  RBH  RBA(^5),  AAV,  GWS 


YEOx.  '  WD 
\>  FD 


YR/WS 
\>  11-, 


TP  =  0. 

Pr=  5.  ±41.59215 
THI=TFIX^  PX/  1BO. 


NVEV-R 

\=0  /• 


ye1-  r 


THM  =  2.*Atan£2.-*GC/gy\is7 
+  5-*  PI/1  S0. 


AAVl=AAV4-  InO/4hm'\[e'5  /Thi,\n,  \  ] 

5.*  Pi/180.  \<thI  1  5MX, )  l 

\  ncrew/  I 


TP  =  TP-!- ATP 


I  V  —  VF 


TN=  RW/(TJ 


60.  *1.44647 


EBH=  RBH(±) 


/  \  /THAW, 

<th-V>^h\AAV1’  Bht 

a  XYE5  \  NCREW 


TP— TP 
A  ATP 


V5S  \  '  c-=> 


EBH=  RBRCD  +  FD  -  WD 


,T'WS>  /§AI\YES 

vss*avmpkf > — 1  \<THX/  1 
^4*1.4666^  NO  WWtHI,w7\ 


NVEK 


-TP=TP-rArp 


TH  M  =  2  .  *-ATA  N(2.*GC/G\NS/ 


’sai,bhi,; 
\ ncrew/ 

A  ATP,  , 

\  thx  / 


FIG.  C55 
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V>1/ 


_ , 

,FX  -  SF  *  4.2. 


I  SF =^F  -V-  R-gHCl1)  -* 

SXN  (rsa  c  r)  *  PX  /iso.') *  *-  2 


fNo 
NEy  y 


I  =x+l 


NOySFl\TE^ XnEx\ NO  ESL  =  R.BA0l>>*PI/lSO. 

E'ELH  =  REH^l'i 

Tno  Yyes 


tp=tp+2.-»Csfi-hs^|  esl=  Cib.+s.^sf^pi/iso. 

_ _ .  E^LM^IZ.  n  I 


TANP  =  .3  H - 

t  yes 

TAMP  =.4  '^-L-<>S<s. 


C=.5 


FIG.  C55  cont'd 
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VARIABLES  LEAVING:  TP-,TNJ 


FIG.  C55  cont'd 


1 


RIVER  1 

100 

SUBR0UTI  ME  R I  VER  ( AA  V  , GWS  ,  TP  ,  TN) 

110 

CSMM3N  IPATCHC325) ,F0RCE(2, 101)  ,F0RCR(4, 

101) ,F0RMX(3) 

1201 

TDMC3) .RT.RCI , NVEH , NFL , GVW, DL, VI D.GT, A .NBC, 

GC.HPT, ITVAR, 

130  & 

RDIAM,TPSI  ,TPLY,FS,WC,SAI  ,A  WPK  F,  GCA  ,  VSS  ,  NCREW,  FDt  VFS  , 

140* 

I  TRACK  399)  V00B(2 ,30)  .VRIDF.C20)  .W.PBHT.PBF 

, VL.NC4.NC5, 

1  50  & 

I0BSTC32)  .MS.WD,  THI  ,BHI  ,RV  TANP  ,C  ,  NDX  ,RBH  (5)  ,RBA(5) 

1  60 

TP  =0.0 

170 

PI  =3.1  41 59265 

180 

THI =  TH  I*PI /! 80  , 

:1°0 

IF  (VD-FD)  1,1,10 

200 

1  IF  (  VS-1 I .0)2,2,90 

210 

2  IF  (NVEH.EQ.O)  G0  T0  4 

.220 

THM=2.*ATAN(2.*GC/GWS)+5.*PI/180. 

' 830 

IF  ( TH M-THI ) 80,3,3 

240 

80  CALL  DIGCTHI  ,THM,BHI  ,V, ATP ,  NCREW) 

250 

TP  =  TP + A  TP 

2  SO 

3  IF  <AAV+5.*PI/180.  -THI)81,4,4 

270 

81  CALL  DIGCTHI  ,  AA  V+5  .*PI  / 1  80  .  ,BHI  ,W,  ATP,  NCREW) 

280 

TP  =TP+A  TP 

•290 

4  TV=VFS 

300 

TN=RW/(  1  . 4  66 6 7* TV*  SO  .) 

310 

EBH  =PBH  (  1 ) 

'320 

G0  T0  100 

330 

10  IF  (  VSS)  90  ,90 , 1  1 

340 

11  IF  (WS.GT. VSS*AVPKF* 1 .46667)  G0  T0  90 

350 

EBH=R3H(1)+FD-WD 

3  SO 

IF  (5AI-THI) 12,13,13 

370 

12  CALL  DIGCTHI  ,SAI  ,@HI  ,W, ATP, NCREW) 

380 

TP  =TP+ATP 

390 

13  IF  (NVEH)  16,16,14 

400 

14  THM=2.*ATANC2 ,*GC/GWS) 

410 

IF  CTHM-THI-5.)  15, 1  6,1  6 

420 

15  CALL  DIGCTHI  ,THM,BHI  ,W,  ATP,  NCREW) 

1430 

TP  =TP+A TP 

440 

I  S  TVrSOR  TC  VSS*  VSS  -  0 . 465* WS* VS  ) 

450 

TN=R  W/(  1  . 4S6S7*TV*  60  . ) 

460 

G0  T0  100 

,470 

90  IF  ( MS -11 .0)92,92,91 

480 

91  TP=TP+180. 

490 

G0  TO  9? 

500 

92  CUR V= 760 00 .-6000.* WS 

*51  0 

IF  (GVW. LE. 28000.  .AMD.  GVW.LE.CURV)  G0 

T0  95 

520 

IF  (GVW. LE. 42000.  .AND.  GVW.LE.CURV)  G3 

T0  96 

530 

TP=TP+90. 

540 

GO  T0  99 

550 

95  TP  =TP+25 . 

560 

G3  T0  99 

570 

8 6  TP  =TP  +  45. 

580 

99  TV=0 . 68 

,590 

TN=RW/(I  .  4S667*TV*  SO  . ) 
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jRIVERl  C0NTINUED 


S SO 0  EBH  =RBH  (  1 )  -WD 

;S1 0  100  SF  =EBH*  SI  N  (RBA  (  1  )*PI  /  I  80  .  )**2 

:S20  IF  (NEX-l)i 03 ,103,101 

;630  101  D0  102  I  =2  ,  N  EX 

|640  SF=S  F+RBH  ( I )  *  SI  N  (RBA  ( I  )  *PI  /180.)**2 

!650  102  CONTINUE 

;6S0  103  SFI  =SF*  1  2  • 

670  IF  (SFI.GT.HS)  G0  T0  104 

:680  TP=TP+0.0 

.  i 59 0  G0  T0  900 

700  104  IF  (SFI ,GT.2.0*HS)  G0  T0  105 

'710  TP=TP+2.0*(SFI-HS) 

1720  G3  T3  900 

.730  105  IF  (N EX -1)108, 108, 110 

740  110  ESL=(!5.  +  5.0*SF)*PI/180. 

1750  ESLH  =  12. 

760  G0  T0  111 

'770  108  ESL=RBA(1)*PI/180. 

780  ESLHrRBH(l) 

790  111  IF  CSF-6.) 1 12,1 12,1 13 

800  1  12  TA  NP  =0 . 3 

is  1  0  G0  T0  114 

:S20  113  TA  NP  =0,4 

i830  1  1  4  C=0 .5 

MO  TRA  T  =  GVW*C0S  (  ESL) *TANP+GCA*C 

«50  THEMrASI  N(  (  TRAT+WC)  /GVW) 

860  IF  (THEM-ESL)  106,106,  107 

870  106  CALL  DI  G(  ESL  ,  THEM,  ESLH  ,  W,  ATP  ,  NCREW) 

880  TP=TP+ATP 

890  107  IF  (WC.GT.O.O)  TP=TP+10. 

900  900  CONTINUE 

910  RETURN 

920  END 
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Subroutine  DIG 


(Fig.  C56) 

Subroutine  DIG  calculates  the  time  penalty  associated 
with  excavating  a  river  bank  to  permit  the  egress  of  a 
vehicle.  First,  the  volume  of  a' triangular  prism  of  dirt 
on  the  exit  bank,  variable  VX,  is  calculated.  This  will 
lower  the  bank  angle  to  the  point  where  the  vehicle  is 
permitted  egress.  Next,  a  time  penalty  for  this  excavation, 
variable  ATP,  is  calculated.  It  is  assumed  that  each  mem¬ 
ber  of  the  crew  can  excavate  1  cubic  foot  of  dirt  in  five 
minutes.  Also,  the  bank  angle  that  entered  the  program  is 
reduced  to  the  new  angle  following  excavation.  This  new 
bank  angle  and  the  time  penalty  associated  with  the 
excavation  are  returned  to  the  calling  program.  This  sub¬ 
routine  is  called  only  from  subroutine  RIVER. 


SUBROUTINE  DIG 


FIG.  C56 
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1 


DIG 

i 


*940  SUBR0UTI  NE  DI  G<  THN  , THD,BH  ,  V,ATP  , NCREW) 

|S  50  VX=O.5*BH*BH*(C0S(THD)-C0S(THN))*W 

S60  ATP  =5.*VX/FL0AT(NCRDW) 

S  70  THNrTHD 

I9B0  RETURN 

990  END 
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Subroutine  R0UTE  (Fig.  C57) 

Subroutine  R0UTE  consists  of  two  parts.  In  the  first 
part,  the  time  required  to  traverse  each  path-segment  of  the 
map  is  calculated.  There  are  750  such  path-segments,  25 
each  in  30  sections  of  the  Puerto  Rico  terrain  map.  The 
second  part  of  this  subroutine  uses  these  data  and  calcu¬ 
lates,  by  means  of  a  dynamic  programming  scheme,  the  best 
route  through  the  map.  Three  large  arrays  enter  this  sub¬ 
routine  from  the  main  program,  having  been  previously 
calculated  in  the  other  subroutines.  These  are:  array  V 
with  1080  elements,  which  contains  the  velocities  the 
vehicle  can  manage  in  each  of  1061  normal  patches  and  19 
marshes;  array  VR,  which  contains  the  time  required  to 
cross  a  river  for  each  of  10  rivers;  and  array  TPR,  which 
includes  the  ingress  and  egress  times. 

Another  array,  S(I,  J,  K) ,  is  calculated  in  the  first 
part  of  the  program.  The  first  subscript  indicates  the 
starting  point  of  a  given  path-segment,  the  second  indicates 
the  ending  point,  and  the  third  indicates  the  section  of 
the  map.  The  first  thing  done  in  the  subroutine  is  to 
initiate  all  elements  of  this  array  to  zero,  as  this  is 
necessary  for  some  machines.  Then,  the  first  of  three  data 
files  is  called,  data  file  SEGPUE,  which  contains  the  data 
for  each  path-segment  in  the  map.  The  data  consist  of  the 
type  number  of  the  patch  traversed  and  the  distance  traversed 
on  that  patch,  for  each  of  the  patches  encountered  along 
that  path-segment.  The  variable  N,  which  contains  the  num¬ 
ber  of  patches  encountered,  is  also  read.  Variable  DP 
contains  the  distance  across  the  patch;  variable  IP  contains 
the  patch  type  number.  There  will  be  N  pairs.  For  each 
patch  crossed,  the  patch  type  number,  IP,  is  used  as  the 
index  in  searching  array  V  to  determine  the  velocity  in  that 
patch.  The  distance,  DP,  is  divided  by  that  velocity  to 
produce  the  time  to  cross  the  patch;  and  these  times  are 
accumulated  for  each  patch  crossed.  If  it  is  found  that 
one  of  the  patches  has  zero  velocity,  i.e.,  if  the  vehicle 
is  immobilized  on  that  patch,  the  time  to  cross  it  is 
arbitrarily  set  at  600,000  seconds.  This  overrides  any  other 
times  accumulated  and  indicates  at  the  end  of  the  calculation 
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that  the  vehicle  is  immobilized  on  this  path-segment.  The 
time  data  are  calculated  for  each  path-segment  in  the  map, 
of  which  there  are  750,  and  the  values  are  stored  in  array 
S.  When  this  is  completed  for  all  of  the  normal  patches, 
data  file  SECPUE  is  closed,  and  data  file  MSHPUE  is  opened. 

Data  file  MSHPUE  contains  the  information  as  to  which 
marshes  are  crossed  on  each  path-segment.  Since  the  data 
for  marshes  are  in  the  same  format  as  the  data  for  patches, 
the  calculation  just  described  is  re-entered  and  performed 
for  each  of  the  marshes.  The  times  for  the  marshes  are  also 
loaded  into  the  corresponding  locations  in  array  S .  When 
this  is  completed  for  marshes,  data  file  MSHPUE  is  closed, 
and  data  file  RIVPUE  is  opened. 

Data  file  RIVPUE  contains  the  information  as  to  which 
rivers  are  crossed  on  each  path-segment.  Returning  from 
this  file  is  the  variable  N,  the  number  of  rivers  on  a  given 
path-segment,  and  variable  IP (I),  which  contains  the  type 
numbers  of  the  particular  rivers  crossed.  There  will  be  N 
of  these.  IP  is  used  as  an  index  in  arrays  VR  and  TPR  to 
determine  the  time  penalties  associated  with  this  river 
crossing.  These  time  penalties  are  also  loaded  into  array 
S  as  additional  times  associated  with  crossing  the  given 
path-segment.  All  of  the  data  as  to  times  on  path-segments 
have  now  been  accumulated  in  array  S,  and  this  array  is 
ready  for  use  in  the  dynamic  programming  model. 

There  are,  however,  other  things  calculated  in  this 
part  of  the  subroutine.  It  is  necessary  to  know  on  what 
percentage  of  the  area  of  a  map  the  vehicle  is  constrained 
to  certain  velocity  ranges.  These  ranges  are  0  mph,  or 
immobilization;  0-2  mph;  2-4  mph;  4-6  mph;  6-8  mph;  8-10  mph; 
and  more  than  10  mph.  This  information  is  accumulated  in 
array  AREA;  this  array  is  printed  out  to  the  terminal. 
Additionally,  array  S  is  written  into  an  external  file  for 
later  manipulation  if  required.  This  external  file  is 
called  VEHNAM  (this  stands  for  vehicle  name) .  The  name,  of 
course,  is  temporary,  since  later,  after  the  program  has 
been  run,  this  file  will  be  called  and  renamed  for  the 
specific  vehicle. 

Now  the  dynamic  programming  model  is  entered.  The 
object  of  this  model  is  to  select  the  best  route  through 
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the  map.  It  was  found  that  it  is  appropriate  to  start  at 
the  termination  of  the  map  and  work  backward,  selecting  at 
each  stage  the  best  route  to  that  point.  The  map  was 
divided  into  30  sections,  resulting  in  31  interfacing  lines 
between  sections.  In  dynamic  programming  terminology, 
these  are  referred  to  as  decision  stages.  There  are  five 
points  equally  spaced  upon  each  of  these  lines,  including 
the  beginning  and  ending  lines.  The  calculations  begin  at 
stage  30.  From  each  point  at  stage  30,  there  are  five  path- 
segments  proceeding  to  the  five  points  at  stage  31.  For 
each  point  at  stage  30,  the  best  of  the  five  possible  path- 
segments  is  selected;  and  the  time  associated  with  that 
path  is  collected  in  array  P0DE.  When  this  part  of  the 
calculation  is  completed,  the  best  path  from  each  of  the 
points  at  stage  30  is  known  and  is  loaded  into  this  array. 
The  point  on  line  31  to  which  this  best  path  proceeds  is 
loaded  into  array  N0DE.  Calculations  now  proceed  backward 
to  line  29.  From  each  point  on  line  29,  there  are  five 
path-segments  proceeding  to  the  five  points  on  line  30.  The 
time  associated  with  the  path-segment  from  the  point  on  line 
29  to  each  point  on  line  30  is  added  to  the  best  time  from 
that  point  on  line  30  to  line  31.  This  is  done  for  each  of 
the  five  lines,  and  the  best  of  these  sums  is  selected  to 
be  the  best  route  from  that  point  on  line  29  to  the 
designation  stage.  This  sum  is  loaded  into  array  P0DE ,  and 
the  point  on  line  30  is  entered  in  N0DE.  Now  the  best  path 
from  each  point  on  line  29  to  the  destination  is  known. 
Calculations  proceed  to  line  28,  and  the  same  operation  is 
repeated  until  line  1  is  reached,  at  which  point  the  best 
path  from  each  of  the  five  points  on  line  1  to  the  destina¬ 
tion,  line  31,  is  known.  The  calculation  than  selects  the 
best  of  these  five  paths  to  be  the  finally  selected  best 
route  through  the  map. 

The  time  accumulated  in  P0DE  for  the  best  path  is  now 
loaded  into  variable  P.  The  points  along  the  path  that  were 
loaded  into  array  N0DE  are  now  extracted  for  the  best  path; 
these  31  points  along  this  path  are  loaded  into  array  N0DEF. 
Now  the  time  for  the  best  route  and  the  individual  points 
along  that  route  are  known. 

It  is  next  necessary  to  calculate  the  speed  made  good 
across  the  map.  The  distance  from  one  end  of  the  map  to  the 
other  (the  shortest  distance  if  the  map  is  folded)  has  been 
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collected  in  variable  DIST,  in  feet;  this  value  is  divided 
by  5280  to  produce  DISTM,  in  miles.  Variable  P  contains 
the  best  route  time  in  minutes,  so  it  is  divided  by  60  to 
yield  the  best  time  in  hours  in  variable  SUMT0T ,  which  is 
averaged  to  yield  the  average  velocity  across  the  map  in 
miles  per  hour.  This  value  is  loaded  in  variable  AVGV. 

The  following  information  then  is  printed  out  to  the 
terminal;  the  individual  points  along  the  best  route, 
the  time  for  this  route,  and  the  average  velocity  for  this 
best  route.  When  this  is  completed,  a  return  is  made  to 
the  main  program. 
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SUBROUTINE  ROUTE 


DIST^O. 

e>E=±. 

TTlNE-l 


M  =  M  +  1  '  N=N+1  K=VC+1 


Cm>3o>-<j  L<Ni»5'>^-J  L<K  >5^. 
\  /  YES  \  YEV\.  / 


TFXLECl')  =  IFEAT  Cs“) 


READ 


K=99 


k,x,j7  n 


BACKSPACE 

TFXLE 


READ 


YS/T+J 
[”\>e „ 


T=0. 


DI  ST  =  Dl  ST  4-  DP(^f) 

I  I  ~ 

\A~±  *->-  M  sM+  1 


XFILE 


IFILE 


DPCm^ 
IP(M), 
M  =  1,N  / 


t=t+dp(mV 
(float  (ivCipxT)* 

22.  /  CIS.*  lOOO.')) 


NO  \YES  1 - -I 

i-— <Tn>cP>^-  fvj-/L- 


IPX  =  XP(tT)f 


m>n>-«H  m=m+1 


TvCiPxyv^ 

'v'\  >  O  /yes 


t=gooooo. 


FIG.  C57 
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AR.EA0  = 
|  ARBA0  + 
dpCm) 


INDEX  =  (FL0AT(lV(lPX)yiOOO.+±.Wq)/2. 
ar  eaCtndex')  =vAREA£IND  ex^pdfCm) 


M=M-1-1  -* -  TDX^T  =  TDIST  +  DPCm>  U- 


sCx,J,K)-sq,J>K)  +  sf*t/go. 


ITIME  =  ITIME  +  1 


IFILE  (1)  =  IFEATC a') 


IFILE  (!')  =  !  FEAT  (5^ 


XTTME 


K,T,J,N,n 
xpCm),  X- 
M=-1,N 


I 


IFILE 


M  =  1 


tpx=  ip^m') 

^  ti=th-vrCxpx) 
T2  =  tz+tpr(xpx') 


sCX,^K)-<5Cr,J,K)  +  SF*T 


M  =  H+1 


AREA0  *=  100.*  AREA0/TDXST 
AREACO  =  XOO.  -  AREA0 


M-l 


J 


M=M-t-l 

- 

A  REA  Cm)  =  100.  *AREAdM)/TC?IST 

1 _ 

— >  5> — 

X  ZNO 

area  CO  =  area  CO-areaCm') 

\l^ _ _ 

PrJnt) 

f 

JQ=  lOOOO 

FIG.  C57  cont'd 

ft 

m 

,  'area®, 

'  AREACm'), 
M  — 1,6 
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ROUTE 


1100  SUBROUTINE  R0UTE(  I  FILE, I  FEAT) 

110  DIMENSION  IFILE<2)  ,IFEAT<5) 

120  COMMON  IPATCH(2230) ,1  VC  1 080) ,VR( 1 10) ,TPR( 1 10) 

130  DIMENSION  S ( 5 , 5 , 40) , IP ( 50) , DP ( 50) 

140  DIMENSION  P0DE( 3 1 , 5) , N0DEC 30 , 5) , N0DEF(3 1 ) 

jl  50  DIMENSION  AREA  (25) 

1  SO  DIMENSION  JX(31) 

■170  AREA0=O.O 

180  DO  61  M=! ,25 

190  61  AR  EA  (  M)  =0.0 

■200  TDISTrO.O 

;210  NOS  =30 

22  O  NOP  =5 

230  DI ST=0 . 

240  N0SM2  =N0S-2 

250  N0SMUN0S-1 

2  60  SF  =  1. 

270  ITIMErO 

280  DO  1  M=1 ,40 

290  DO  1  N=l,5 

'300  D0  1  K  =  l,5 

310  S(N,K,M)=0.0 

•320  1  CONTINUE 

330  I  FI  LE(  1 )  =1  FEATC3) 

33 1  CALL  0PENFC1 ,IFILE) 

■340C 

■380  20  READ  Cl;101)  K,I  ,J,N 

390  1  6  IF  (K.EQ.99)  G0  T0  21 

392  BACKSPACE  1 

;394  READ  (l;102)  (  DP  (  M)  ,  I P  (  M)  ,  M  =  1  ,  N) 

400  IF  (ITIME.GT.O)  GO  TO  19 

■410  19  IF  (I+J.GT.2)  GO  T0  22 

■420  DO  32  M=1,N 

•430  DIST  =  DIST+DP(M) 

440  32  CONTINUE 

450  22  T=0.0 

460  IF  (N)  2  6, 26, 27 

■470  27  D0  25  M=1  ,N 

■480  IPX  =1  P  (  M) 

i490  IF(IV(IPX))23,23,24 

■500  23  T  =  600000. 

1510  G0  TO  28 

'520  24  T=T+DP(M)/CFL0AT(IV(IPX))*22./(15.*1OOO.)) 

‘530  25  CONTINUE 

■  540  28  IF  (ITIME.EQ.O  .AND.  I.E0.J)  GO  TO  62 

550  GO  T0  26 

!5S0  62  D0  5  M  =  1,N 

■570  IPX  =1  P  (  M) 

580  IF(IV(IPX))2,2,3 

■590  2  AR  EA  0  =A  R  EA  0+  DP  (  M) 
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ROUTE  CONTINUED 


600  G0  T0  4 

610  3  I NDEX  =  C FL0A TCIVCIPX))/1000.+1  .99999) /2.0 

,620  AR  EA  Cl  NDEX)  -AREAC  I  NDEX)+DP  CM) 

630  A  TDIST  =  TDIST+DPCM) 

!640  5  CONTINUE 

i650  26  SCI  ,J,K)  =S(I  ,J,K)  +  SF*T/60. 

660  T=T/60. 

!670  60  T0  20 

68  0  21  CALL  CL0SEFC1) 

690  ITIME=ITIME+1 

;700  60  TOC  58 , 57)  I TI  ME 

1710  58  IFILEC1)=IFEATC4) 

71  1  CALL  0PDNFC1  ,IFILE) 

!720  G0  T0  20 

1730  57  I  FI  LEC 1 )  =1  FEATC  5) 

731  CALL  OPENFC 1 ,IFILE) 

740C 

|750  50  READ  C  1 ;  I  0 5)  K  ,  I  ,  J ,  N ,  C IP C  M)  ,  M=  1  ,  N) 

1760  40  IF  CK.E0.99)  G0  T0  56 

1770  IF  CIPCD.EQ.O)  G0  TO  50 

1780  52  Tl  =0.0 

790  T2  =0 .0 

'800  D0  53  M=1,N 

!810  IPX  -I  P  C  M) 

•820  Tl  =T 1+VRC I PX) 

'830  T2  =T2+TPR  C  IPX) 

840  53  CONTINUE 

850  T  =  T1+T2 

'860  SCI  ,J,K)  =SCI  ,J,K)  +  SF*T 

1870  G3  TO  50 

i8S0  100  FORMAT  C1X,2A5) 

‘290  101  FORMA TCI9, 211  ,  1 X  ,  I  3  ) 

1900  102  FORMATC8X,F6.0.I5,F6.0,I5,F6.0,I5,F6.0,I5.F6.0,I5) 

:9 1 0  103  FORMAT  C"  FR0M  ,13,"  T0",I3,"  0N  SEG“,I3,  IN",F9.2 

!920&  ,"  MIN") 

*1930  105  F3RMATC  12 ,21 1  ,  IX  ,2013) 

940  200  FORMAT  C28X,  . ", /,4X,  "TOTAL  TIME  0F  TRAVERSE  ", 

'950 &  F9.2,"  MINUTES  ) 

i960  201  FORMAT  C/////,"  ENTER  NAME  0F  COURSE",/) 

970  56  CONTINUE 

J980  CALL  CL0SEFC  1 ) 

1990  18  AREAOrAREAO/  TDI  ST*  1  00  . 

4000  AREAC6)=1OO.-ARDA0 

!l010  DO  6  M- 1  ,5 

il020  AREA  CM)  =AREA  C  M) /TDI  ST*  1  00  . 

it  030  AREAC  6)  =A REA C  6)  -AREA  CM) 

i  1 1 0 40  6  CONTINUE 

Il050  PRINT  8O,(®REA0,CAREACM)  ,M  =  1 ,6) 

>1060  80  FORMAT  C///.“  PERFORMANCE  BX  AREA",//, 

!l  0  70  &  7C2X ,  F5 . 1  ,  "  7.  )/4X,  0.0",6X,"0  TO  2",4X,"2  TO  4",4X, 
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jR0UTE  C0NTINUED 


1080 &  4  T0„6  ,4X,  6  T0  8  t5X,"s  T0  10**,  5X,">  10** 

il 090 &  /15X,  VEL0CITY  RANGE--MPH" /////) 

11100  CALL  0PENFC1 /VEHNAM”) 

JlllO  JQ  =1  0000 

il  120  WRITE  <1?1000)  JQ  ,30 

U  1  30  JQ^JQ+1 

jl  1  40  D0  2000  1  =  1  ,31 

.1150  2000  JX(I)  =5 

‘1160  WRITE  (1*1001)  JQ,(JX(I),I=1,31) 

jll  70  D0  2001  1=1  ,30 

jl  180  JQ  =  10000+1  0*1 

■1190  D0  2001  J  =  1  ,5 

jl  200  JQ  =JQ+1 

j  1 2 1  0  2001  WRITE  (1*  1002)  JQ  ,  (S  (J  ,K  ,1 )  ,K  =  1 , 5) 

■1220  1000  F0R MA  T(  1 5 , 1 X,  13) 

11230  1001  F0RMATC I  5 , 1  X,  31 12) 
j  1 240  1002  F0RMAT(I5,1X,  5F13.6) 

1250  CALL  CL0SEF ( I ) 

1260C 

jl2 62  D0  500  1=1,5 

'1264  500  P0DE(  1  ,1)  =0. 

jl 2 70  D0  302  1=1  ,30 

jl  280  D0  302  K  =  1 , 5 

[1290  P=S(1  ,K,I)+P0DE(I  ,1) 

jl 300  N0DECI  ,K)  =1 

;  1 3 1 0  D0  301  J=2,5 

;1320  P1=S(J,K,I)+P0DE(I,J) 

jl 330  I  FCP.LT.Pl  )  G0T0  301 

i  1 3  40  P=P1 

‘1350  N0DECI  ,K)  =J 

|1360  301  C0NTINUE 

11370  302  P3DECI+1  ,K)  =P 

[1380  P  =P0DE(  31 , 1 ) 

11390  N0DEFC31 )  =1 

jl  400  D0  303  1=2,5 

1410  IF(P.LT.P0DE(31 ,I))G0T0  303 

11420  P  =P0DE(3 1  , 1 ) 

jl  430  N0DEF ( 3 1 )  =1 

jl  440  303  C0NTINUE 

11450  D0  304  1  =1  ,30 

|1 460  J  =  31  -I 

11470  NNN=N0DEF( J+l) 

]l  480  304  N0DEFCJ)  =N0DE( J , NNN) 

|1490  DISTM  =  DI  ST/5  280. 

‘1500  SUMT0T=P/6O . 

jl  51 0  AVGV  =  DI  STM/SUMT0T 

'1520  D0  198  1  =  1,30 

'1530  NN1  =N0DEF(I) 

jl  540  NN2=N0DEF(I  +  1) 

jl  550  198  PRINT  1 99  ,  N0DEF<  I )  ,  N0DEFC 1  +  1 )  ,  I  , 
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JR  0  LIT  E  CONTINUED 


il  5S0&  S(NN1,NN2,I> 

‘1570  PRINT  197,SUMT0T,DISTM,AVGV 

:1 580  199  F0RMAK5H  FROM, 13, 3H  T0,I3,7H  0N  SEG,I3,3H  IN,F9.2 

1 590 &  ,4H  MIN) 

jisoo  197  F0RMATC///4X,22HT0TAL  TIME  0F  TRA VERSE , FI  1 .2 , 6H  H0URS/ 
:i  61  0  &  4X,24HT0TAL  LENGTH  0F  TRA  VERSE ,  Fg  .2 , 6H  MILES/ 

*1  $20  4  4X,25HA VERAGE  SPEED  0F  TRA VERSE , Fg .2 , 4H  MPH////) 

1  630  RETURN 

:1  640  END 
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Subroutine  VWRT  (Fig  C58) 

Subroutine  VWRT  writes  the  arrays  V,  VR  and  TPR  into 
an  external  file  for  later  manipulation  if  required.  This 
file  is  named  VELFIL  within  the  program.  Later,  when  the 
program  has  been  run,  this  file  will  be  called  and  renamed 
to  identify  it  with  the  specific  vehicle. 
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SUBROUTINE  vwrt 


VARIABLES  ENTERING:  VJPATCW,NRI V7  IV(i086),VR^llQ'),TPRC’^Cl') 


JQ =10000 

r=iU — 

~~E  _ _ , 

ir=s.*i 

iii=II-4- 

dQ=dQ+5 


WRITE 


JQ  =  20000  p 

II<Vn\YE£ 
^NPATC  H/ - 

NO]  I - 1 

— -Jr-  1=1+1 


i  WRITE. 


WRITE . 


1=1  - 

ZEZ _ 

11=5*1 

rrr=n-4 

ja=jQ+5 


JQ^/QQOO 

JQ^^-OPOcT 

XI  \  v/ctct 
\<NRIV/> 


WRITE. 


WRITE. 


r=i+i 


No/lOO/ YES 


IWRlTE, 


11=5*1 
III =11- 4 
JQ=JQ+5 


JQ=50000 


/XI\yes 

vCNRIV/ 


WRITE 


I  write: 


RETURN 


NO  VARIABLES  LEAVING 


da, 

NPATCH 


'  JQ-, 

IvO), 

y)=IlX,TX 


j  =  rn, 

VN  PATCH 


JO, 

NRTV 


r  JQ, 
VRCJ'), 
N  =  IH,II 


UQ,VR(J') 
J=III, 
\  NRXV 


TPRCJ) 


j=nr,ri 


JQ,TpR  (J), 


/III, 

\  NRIV  / 


PIG.  C58 


N/ELPXL  , 


VELFIL 


VELFIL 


VELFIL 


VELFIL 


VELFIL 


VELFIL 
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:VWR  T 

I 

‘100 

SUBROUTINE  VWRTC  NPATCH  ,  NR  I  V) 

110 

COMMON  IPA TCH (2230) ,IV(10g0) vVR(l 10) ,TPRC1 10) 

140 

CALL  OPENFCl  ,"VELFIL") 

:1 50 

JQ  =1 0000 

,160 

WRITE  (1  :500)  JQ  , NPATCH 

1  70 

JQ =20000 

'180 

DO  600  1  =1  ,500 

|190 

II =5*1 

:200 

III  =11-4 

210 

JQ  =JQ+5 

1220 

IFCII .GE.NPA TCH) GOTO  601 

1230 

600 

WRI TEC  1:502)  JQ  ,(IV(J) ,J=III  ,11) 

‘240 

601 

WRI  TEC  1 ;  502)  JQ,(IV(J)  ,J=III  ,  NPATCH) 

250 

JQ =30000 

;2  SO 

WRITE  (  1  :  500)  JQ  ,  NRI  V 

’270 

JQ  =  40000 

;280 

DO  605  1=1 ,100 

290 

II =5*1 

!300 

III  =1 1—4 

310 

JQ  =JQ+5 

320 

IFCII. GE.NRIV)G0T0  606 

‘330 

60  5 

WRITE  Cl;  501)  JQ  ,  (  VR  ( J)  ,J  =1 1 1  , 1 1 ) 

340 

606 

WRITE  ( 1  ;  50 1 )  JQ  ,( VRCJ)  ,J=III  ,NRI  V) 

350 

JQ =50000 

’360 

DO  610  1=1  ,100 

370 

11=5*1 

380 

III  =11-4 

:390 

JQ  =JQ+5 

400 

IFCII  .GE.NRIV)G0T0  611 

1410 

610 

WRI TD  ( 1 ; 50 1 )  JQ , CTPRCJ)  ,J=III ,11) 

’420 

61  1 

WRITE  ( 1 ;  50 1 )  JQ  ,  CTPRCJ)  ,J=III  ,NRIV) 

430 

500 

FOR  MAT(I5,1X,I5) 

1440 

501 

FORMA  TCI  5,  IX,  5F13.6) 

445 

502 

FOR  MAT(I5,1X,5I10) 

■  450 

CALL  CL0SEFC1) 

1460 

RETURN 

!4  70 

END 
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DATA  FILES 


There  are  five  terrain  data  files  and  four  vehicle 
data  files.  Two  of  the  terrain  data  files  contain  informa¬ 
tion  regarding  the  patches  and  rivers,  respectively;  and 
three  map  data  files  contain  information  regarding  the 
location  of  the  patches  in  the  terrain,  the  location  of 
marshes  and  the  location  of  rivers. 

The  first  data  file,  PCHPUE,  contains  the  data  identi¬ 
fying  the  terrain  characteristics  of  each  of  1061  normal 
patches  and  19  marshes  for  the  Puerto  Rico  site.  The  data 
are  in  the  same  format  for  both.  The  variables  read  in 
order  are:  NPAT ,  the  patch  number;  1ST,  the  soil  type  class 
(either  fine-grained  or  coarse-grained);  IRCI(I),  the  RCI 
values  for  the  three  seasons,  I  being  equal  to  1,  2,  or  3 
for  dry,  average  and  wet;  IGR,  the  grade  class;  I0BAA,  the 
obstacle  approach  angle  class;  I0BH,  the  obstacle  height 
class;  I0BW,  the  obstacle  width  class;  I0BL,  the  obstacle 
length  class;  I0BS,  the  obstacle  spacing  class;  I0ST,  the 
obstacle  spacing  type  class  (either  linear  or  random) ;  IPR, 
the  microprofile  class;  IS(l),  which  contains  the  stem 
spacing  class  for  stem  diameter  class  I  (I  =  1  to  the  number 
of  stem  diameter  classes);  and  IREC,  the  recognition  dis¬ 
tance  class.  In  the  case  of  marshes  (which  contain  no 
obstacles) ,  variable  I0BS  is  used  to  identify  the  water 
depth  class.  The  second  file,  HZ0PUE,  contains  river  data. 
Data  read  from  this  file  in  order  are:  NPAT,  the  river 
type  number;  NISC,  the  river  ingress  bank  angle  class;  NBDC, 
the  river  bank  differential  height  class;  NESC,  the  river 
egress  bank  angle  class;  NRWC ,  the  river  width  class;  NWDC, 
the  water  depth  class;  and  NWV,  the  water  speed  class. 

These  two  files  are  read  early  in  the  program,  and  the  data 
are  used  to  calculate  velocities  in  patches  and  time 
penalties  in  rivers. 

The  other  three  terrain  data  files  are  used  late  in  the 
program  in  the  route  selection  mode.  The  first,  SECPUE, 
contains  information  about  the  patches  encountered  along  each 
path-segment  of  the  map.  The  first  datum  read  is  N,  the 
number  of  patches  encountered,  followed  by  N  pairs  of  data 
consisting  of  variable  DP(I),  the  distance  across  the  patch. 
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and  IP(I),  the  patch  type  number.  The  next  file,  MSHPUE, 
contains  information  regarding  the  marshes  encountered  in 
each  path-segment.  The  data  are  in  the  same  format  as  in 
SEGPRl.  The  last  terrain  data  file,  RIVPUE,  contains 
information  regarding  the  river  types  encountered  on  each 
path-segment.  The  first  datum  is  variable  N,  containing 
the  number  of  rivers  encountered,  followed  by  N  river  type 
numbers,  IP (I). 

The  first  file,  PCHPUE,  is  read  from  the  main  program. 

The  second  file,  HZ0PUE ,  is  called  from  the  main  program. 

The  last  three  files  -  SECPUE,  MSHPUE  and  RIVPUE  -  are 
called  from  subroutine  R0UTE. 

In  addition  to  these  terrain  files,  there  are  four 
vehicle  data  files  entitled:  M151,  M35A2M,  M60A1  and  M113A1. 
One  of  them,  determined  by  the  operator,  is  called  early  in 
the  main  program.  There  are  55  variables  in  each  data  file. 

In  order,  they  are:  NVEH,  vehicle  type  (0  for  tracked,  1 
for  4x4  wheeled,  and  2  for  6x6  wheeled);  ITRAN,  transmission 
type;  GVW,  gross  vehicle  weight;  DL,  length  of  track  on  the 
ground  for  tracked  vehicle,  or  wheel  diameter  for  wheeled 
vehicle;  WID,  width  of  the  wheel  or  track;  GT,  grouser 
height  for  tracked  vehicle,  or  the  number  of  tires  for 
wheeled  vehicle;  A,  area  of  one  track  shoe  for  tracked  vehicle, 
or  the  number  of  axles  for  wheeled  vehicle;  HBT,  rated 
horsepower  per  ton;  GC,  ground  clearance;  NBC,  number  of 
bogies  for  tracked  vehicle,  or  presence  of  chains  for  a 
wheeled  vehicle;  ITVAR,  transmission  variety;  TL,  wheel  base; 
FEC ,  front-end  clearance;  VAA,  vehicle  approach  angle;  REC, 
rear-end  clearance;  VDA,  vehicle  departure  angle;  CGF, 
horizontal  distance  from  the  center  of  gravity  (CG)  to  the 
center  line  of  the  front  wheel;  CGH,  vertical  distance  from 
the  CG  to  the  wheel  center  line;  GWS,  greatest  span  between 
adjacent  wheel  center  lines;  RR,  rolling  radius  for  a  wheel, 
or  radius  of  the  road  wheel  plus  track  thickness  for  a  track; 
ACG,  angle  between  a  line  parallel  to  the  ground  and  a  line 
between  the  CG  and  the  center  of  the  rear  wheel,  used  to 
determine  departure  angle;  DCG,  distance  from  the  CG  to  the 
center  of  rear  wheel;  HC,  height  of  the  center  of  rear  wheel 
above  the  ground;  RWW,  rolling  radius  of  rear  wheel;  HS, 
maximum  step  height  the  vehicle  can  manage;  WC ,  winch 
capacity;  SAI ,  ingress  swamp  angle;  AWPKF ,  auxiliary  water 
propulsion  factor;  GCA,  ground  contact  area;  FD,  fording 
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depth;  VSS,  vehicle  swimming  speed;  VFS ,  vehicle  fording 
speed;  NCREW,  number  of  members  in  the  crew;  and  NFL,  track 
type.  If  the  vehicle  is  wheeled,  the  following  three  are 
read:  RDIAM,  wheel  rim  diameter;  TPSI,  tire  pressure;  and 

TPLY,  tire  ply  rating.  For  all  vehicles,  the  following  are 
read:  XBR,  braking  force  a  vehicle  can  generate;  W,  the 

vehicle  width;  PBHT,  vehicle  pushbar  height;  PBF,  force  the 
vehicle  pushbar  can  withstand;  and  VL,  length  of  the  vehicle. 

Next  in  order  is  NC4,  the  number  of  points  in,  array 
V00B;  array  V00B  contains  obstacle  height  versus  vehicle 
velocity  at  2.5-g  vertical  acceleration.  Then  array  V00B 
is  read,  followed  by  NC5,  the  number  of  points  in  array 
VRIDE,  which  contains  velocity  limited  by  surface  roughness 
at  6-watts  absorbed  power  for  various  surface  roughness 
classes.  Then  array  VRIDE  is  read. 

Next  read  are:  RR,  sprocket  pitch  radius  for  a  track, 
or  tire  rolling  radius  for  a  wheel;  FDR,  final  drive  ratio; 
EFF,  transmission  efficiency;  FDREF ,  final  drive  efficiency; 
and  NG,  number  of  gear  ratios  in  the  transmission.  This  is 
followed  by  GR(I) ,  and  array  containing  these  gear  ratios. 

If  the  transmission  is  automatic,  the  following  variables 
are  read:  TC,  the  input  torque  at  which  the  torque  converter 
curves  were  measured;  ENTCG ,  gear  ratio  between  the  engine 
and  torque  converter;  L0KUP,  denoting  the  presence  of  a 
torque  converter  lockup;  and  NCI,  the  number  of  points  in 
array  TNEl .  Then,  array  TNEl ,  which  contains  the  torque 
converter  input  speed  versus  converter  speed  ratio  curve, 
is  read.  Next  read  is  NC2 ,  the  number  of  points  in  array 
TTM,  followed  by  the  reading  of  array  TTM,  which  contains  the 
torque  converter  torque  multiplying  coefficient  versus  con¬ 
verter  speed  ratio  curve.  For  all  vehicles,  the  following 
are  read:  NC3,  the  number  of  points  in  array  TTE;  then 
array  TTE,  which  contains  the  net  engine  torque  versus  engine 
speed  curve.  These  variables  are  all  read  for  subroutine 
INPUT,  which  is  called  from  the  main  program. 

Since  these  files  are  very  large,  it  is  not  desirable 
to  reproduce  them  here.  Anyone  desiring  these  files  should 
contact  the  authors  for  punched-tape  or  cards. 


VEHICLE  RIDE  DYNAMICS  SUBMODEL; 


The  rest  of  Appendix  C  presents  a  synopsis  of  the 
Vehicle  Ride  Dynamics  Model  used  to  determine  speed  as 
limited  by  shock  and  vibration.  The  vehicle  ride  dynamics 
model  requires  specific  terrain  and  vehicle  factors  as  input 
and  yields  as  outputs  the  motions  at  various  parts  of  the 
vehicle  that  allow  for  determination  of  the  limiting  speeds 
due  to  shock  and  vibration  in  terms  of  response  limits  and 
specific  terrain  attributes.  These  limiting  speed- terrain 
attribute  relations  form  inputs  to  the  main  program  in  the 
form  of  an  array  of  coordinates  and  serve  as  catalogs  for 
shock-limiting  and  ride-limiting  speeds. 

The  surface  geometry  features  that  affect  vehicle  ride 
vary  from  a  discrete  single  perturbation,  such  as  a  boulder, 
rice  dike,  or  log,  to  gentle  undulations  as  appear  in  the 
surface  of  an  open  level  pasture,  and  produce  effects  on 
vehicles  that  range  from  shock  to  vibration  to  immobiliza¬ 
tion,  depending  on  the  speed  and  size  of  the  vehicle  in 
relation  to  the  size  and  spacing  of  the  surface  features. 
These  surface  irregularities  can  be  conveniently  divided  into 
two  basic  types  that  can  be  associated  with  either  the 
steady-state  or  transient  solutions  of  a  mechanical  system. 
The  first  is  the  type  of  surface  undulations  that  produce 
a  relatively  uniform  vibrational  activity  and  is  sometimes 
referred  to  as  stable  ground  roughness.  The  second  type  of 
activity  is  the  response  to  singular  obstacles.  The  ride 
dynamics  model  is  used  to  predict  vehicle  responses  to  both 
singular  obstacles  and  stable  ground  roughness  and  establish 
meaningful  relations  among  vehicle  response,  vehicle  speed 
and  terrain  features.  The  prime  objective  of  the  ride 
dynamics  model  with  regard  to  the  analytical  model  is  to 
establish  relations  between  limiting  speed  and  a  measure 
of  the  pertinent  terrain  features.  Because  of  the  nature 
of  the  responses,  the  singular  obstacle  problem  is  treated 
separately  from  that  of  stable  ground  roughness. 
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A  major  problem  encountered  in  determining  limiting 
speed  versus  terrain  feature  relations  is  that  of  first 
defining  meaningful  quantities  to  describe  the  terrain 
features  and  vibration  response  level. 

Results  of  past  studies  have  indicated  that  for  the 
singular  obstacle  problem,  obstacle  height  is  a  simple, 
straightforward,  and  suitably  adequate  descriptor  for  the 
terrain  feature.  For  describing  stable  ground  roughness,  a 
statistical  classification  (power  spectral  density,  PSD) 
that  yields  information  about  the  amplitude  and  frequency 
content  of  a  surface  was  chosen.  It  is  believed  that  even¬ 
tually  geographic  regions  can  be  suitably  related  to  specific 
characteristic  PSD  curves;  however,  due  to  the  lack  of  such 
terrain  information  at  this  time,  no  attention  is  given  to 
the  PSD  curves  as  such.  Each  terrain  profile  is  assumed  to 
exhibit  the  same  characteristic  PSD  of  the  form  -pC-TL')  =  kS2.~z 
and  only  a  roughness  index  (rms  elevation)  is  used  to 
describe  the  condition  of  the  terrain  surface. 

The  prime  response  criteria  for  limiting  vehicle  speed 
is  that  level  at  which  the  driver's  vertical  acceleration 
reaches  2.5  g  (for  singular  obstacles)  or  the  driverrs 
absorbed  power  reaches  a  sustained  level  of  6  watts  (for 
stable  ground  roughness). 


Vehicle  Models 


The  vehicles  in  the  ride  dynamics  model  are  represented 
in  the  form  of  coupled,  second-order  differential  equations 
that  describe  the  motions  of  each  degree  of  freedom.  The 
equations  derive  naturally  by  applying  Newton's  second  law 
to  the  mass-spring-damper  elements  representing  the  vehicle's 
components.  The  elements  comprising  the  vibratory  systems 
are  idealized  in  the  usual  sense  in  that  the  mass  elements 
are  assumed  to  be  rigid  bodies,  the  spring  elements  are 
assumed  to  be  of  a  negligible  mass  and  represent  the  elastic 
properties  of  the  structure,  and  the  damping  elements  have 
neither  mass  nor  elasticity  and  represent  the  dissipative 
forces  or  energy  losses  of  the  system.  Damping  forces  exist 
only  if  there  is  relative  motion  between  the  two  ends  of  the 
damper.  The  two  types  of  damping  most  common  to  vehicle 
suspensions  are  (a)  frictional  (Coulomb)  damping,  which  is  a 
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function  of  the  normal  force  between  the  sliding  bodies, 
as  well  as  the  materials  involved,  and  is  found  chiefly  in 
leaf- spring  action;  and  (b)  viscous  damping,  in  which  the 
damping  force  is  proportional  to  the  velocity  as  occurs  in 
shock  absorbers . 

Although  a  vehicle  is  a  very  complicated  vibrational 
system  possessing  a  number  of  degrees  of  freedom,  for  many 
types  of  problems  certain  motions  are  unimportant.  As  a 
result  of  a  compromise  between  model  complexity,  adequate 
description  of  the  significant  motions,  and  time  and  cost 
of  computer  simulations,  two-dimensional  models  were  used 
to  represent  the  vehicles. 

Schematic  diagrams  showing  the  manner  in  which  the  mass¬ 
spring-damper  elements  are  arranged  to  represent  the  two 
wheeled  and  the  two  tracked  vehicles  used  in  this  study  are 
shown  respectively  in  Figures  C59  to  C62.  In  Figure  C59, 
a  4-degree  of  freedom  model  of  the  M151  jeep  that  could 
actually  represent  almost  any  conventional  four-wheeled 
vehicle  is  shown. 

The  frame  is  considered  rigid  and  only  the  pneumatic 
tires  and  suspension  elements  are  considered  to  contribute 
to  the  sprung  motion  of  the  frame.  All  the  pertinent  non- 
linearities  of  the  suspension,  including  jounce  and  rebound 
limits,  are  determined  from  appropriate  measurements  and 
are  included  in  the  action  of  the  spring  and  damper  elements. 

A  schematic  of  the  M35 ,  1\  ton  truck  that  portrays 
the  vehicle  as  four  mass  points  --  the  axle-wheel  assemblies 
and  the  body  —  is  shown  in  Figure  C60.  The  unsprung  mass 
(axle-wheel  assemblies)  is  connected  to  the  sprung  mass 
(vehicle  body)  through  the  springs  and  dampers  representing 
the  suspension  compliance.  The  "walking  beam"  bogie  assembly 
in  the  rear  is  composed  of  the  masses  of  the  two  axle-wheel 
assemblies  connected  by  spring  and  dampers  to  a  rigid  massless 
bar  that  is  free  to  pivot  about  a  frictionless  point  that 
connects  the  assembly  to  the  main  frame.  The  tire  compliance 
for  both  wheeled  vehicles  is  represented  by  a  cluster  of 
radially  projecting  springs. 
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Schematics  of  the  M60  tank  and  the  M113  armored 
personnel  carrier  are  presented  in  Figures  C61  and  C62, 
respectively.  The  structures  of  these  two  models  are 
similar,  except  that  the  M113  has  one  less  bogie  than  the 
M60.  These  models  consist  of  eight  and  seven  degrees  of 
freedom,  respectively,  which  include  the  bounce  and  pitch 
of  the  main  frame  and  the  vertical  motions  of  each  of  the 
bogie  wheels.  The  longitudinal  motion  is  accounted  for  only 
in  the  acceleration  determined  from  the  horizontal  forces 
resulting  from  deflections  of  the  bogie  spring  segments.  No 
attempt  is  made  to  simulate  the  horizontal  motions  from  a 
fixed  reference.  This  method  of  accounting  for  horizontal 
accelerations  is  analogous  to  supplying  the  additional  trac¬ 
tion  necessary  to  balance  the  resisting  forces  due  to  spring 
deflection,  thus  enabling  the  tank  to  maintain  a  constant 
velocity  while  crossing  an  obstacle.  This  additional  force 
required  to  maintain  this  constant  velocity  is  then  used  to 
determine  the  longitudinal  acceleration. 

Here,  as  in  all  cases  where  the  driver  is  located  away 
from  the  C.  G. ,  the  motions  at  the  driver  compartment  are 
computed.  The  geometry  effects  of  the  bogies  are  represented 
by  radially  projecting  stiff  springs,  and  the  track  compliance 
by  interconnecting  springs  between  the  bogies  and  massless 
"feelers”  appropriately  positioned  to  portray  the  geometry 
of  the  leading  portion  of  the  track  in  front  of  the  first 
bogie . 

The  construction  of  each  vehicle  model  requires  the 
specific  values  for  masses,  inertias,  suspension,  and  tire  or 
track  compliance  and  the  appropriate  dimensions  relative  to 
the  centers  of  gravity. 


Development  of  Equations 

The  differential  equations  describing  the  motions  of 
each  degree  of  freedom  were  developed  for  each  vehicle  by 
first  establishing  an  appropriate  set  of  coordinates  and 
sign  convention  and  then  placing  each  system  in  a  displaced 
configuration  such  that  each  coordinate  was  non-zero.  The 
relative  displacements  of  the  masses  cause  compressions  and 
extensions  in  the  springs  and  relative  motion  of  the  damper 
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ends  that  produce  forces  on  each  mass,  as  represented  by  the 
free-body  diagram  for  the  M60  tank  in  Figure  C63 . 


EQUATIONS  FOR  M60A1: 


Using  Newton's  second  law  of  motion  and  summing  first 
the  vertical  and  longitudinal  forces  and  moments  on  the  main 
frame  and  then  the  vertical  forces  on  each  bogie  led  to  the 
series  of  equations  listed  below  to  describe  the  M60  tank. 


M60  Tank  Equations: 


a.  Forces  and  moments  on  main  frame 

(1)  Sum  of  vertical  forces 

Mz  =-[  k(A/)A/  +Z  cCAf)A/  +-MgD 

(2)  Sum  of  moments 

3  1 

10=  -C-21 1<CA z)Ai£i  cosQ  +£lcCLi)kiJi  cos G 

'kCA^Ai^f  c<3S0~2Ic  cos0U 

(3)  Sum  of  horizontal  forces 

#  # 

Mx  =  Hf 

2=1 


Vertical  forces  on  bogies 


Z  ^  =1<  CAi^Aj.  +  cCAi^Aj.  -/^0  S0  +Vi 

Z2  =/krCA2')A2.  ■+-cCA2')A2  —  M2g+V2 

1^3  Z3  CAs)A3  +C(A3^)A3— $2  +/-i3^3  "“^30  +V3 

M4Z4=  V  (A^)A4+cCA4S)A4l-/13S3  4-/^^4-M40+V4. 
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This  Page  omitted 

(C-199) 


MglZg —  1<CAs)As+cCAs)As  +  Mg^+Vg 

M6Z6*'kCA6')A&  +c(AJA6  -^5S5  -M^g+V6 


where  (for  all  the  above  equations) 

M,  M{  =  mass  of  main  frame  and  ifch  bogie  assembly, 
respectively 

#  0  » 

Z,Z,Z  =  vertical  motions  of  center  of  gravity  of 
main  frame,  i.e.  acceleration,  velocity, 
and  displacement,  respectively 

•  #  m 

=  vertical  motions  at  center  of  gravity  of 
the  bogie,  i.e.  acceleration,  velocity, 
and  displacement,  respectively 


0,  ©7  © 

*  • 

* 

A  £ 

a2- 

A- 


=  angular  motion  about  the  center  of  gravity 
of  the  main  frame 

=  horizontal  acceleration  at  center  of  gravity 


of  main  frame 

=  Z 

-h  '5271  ©  -  Z  i 

for 

1  <i  <3 

=  z 

-  JP-i  <=>zn9  -  z2* 

for 

4  <  i<  C 

• 

=  z 

-1-  ©COS©  -z f 

for 

d< 

=  z 

-  JljQcosQ-'Zi 

■for 

4-  —  2 Co 

=  distance  from  center  of  gravity  of  main 
frame  to  contact  point  of  ifch  bogie 


IcCAf")  =  force-deflection  relation  for  ifch  bogie 
suspension 


0200 


cCAf) 


force-velocity  relation  for  i^h  bogie 
suspension 


9 

I 

Q 


acceleration  of  gravity 

pitch  moment  of  inertia  of  main  frame 

moment  about  the  center  of  gravity  of  main 
frame  produced  by  horizontal  forces 


H-i 


resultant  horizontal  force  of  spring  segments 
of  i*"  bogie 


spring  constant  for  it^1  track  spring;  in 
this  study,  fj.o=£,0O  li/in  ^fU.^315  Zb/ in 


'Z £  =  relative  displacement  between 
adjacent  bogies 


V7 


resultant  vertical  force  of  spring  segments 
of  i*"”  bogie 


A  representative  force-deflection  and  a  force-velocity 
relation  for  describing  suspension  compliance  is  shown  in 
Figures  C64  and  C65,  respectively.  Photographs  of  the  tank 
in  different  attitudes  while  crossing  an  18-inch  high 
obstacle  indicated  that  the  greatest  pitch  expected  for  this 
study  would  probably  be  in  the  order  of  9  degrees  or  less. 

It  is  seen  that  if 

&  =  9°,  -tTxen  cos  9°  =  .  988  »  1. 

Also,  90  ~  9 7t/ 180  =  .157  radian. s 


and,  sin  9°  =  .  15G  «  .  157 


Based  on  these  values,  the  small  angle  assumption,  i.e. 
cos  0=1  sin  0=0,  can  be  employed  with  less  than  2  percent 
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error.  Therefore,  to  simplify  the  calculations,  the 
small-angle  concept  was  used  in  the  equations. 

Once  the  motions  at  the  C.G.  of  the  main  frame  have 
been  determined,  the  motions  in  the  vicinity  of  the  driver 
can  be  found  in  the  usual  manner  by  combining  the  trans¬ 
lational  and  rotational  motions . 

Computation  of  track  forces 


The  track  compliance  is  represented  chiefly  by  inter¬ 
connecting  linear  springs  between  the  bogies  and  massless 
"feelers"  that  are  connected  to  the  front  bogie  by  a  stiff 
spring.  The  spring  constants  portraying  the  track  tension 
were  determined  by  observing  photographs  of  the  vehicles 
in  different  positions  on  an  obstacle  (Figure  C66).  From 
these  photos,  the  influence  of  displacing  a  particular 
bogie  on  the  displacement  of  the  adjacent  bogies  was 
estimated.  With  the  approximate  mass  of  each  bogie 
assembly  and  their  displacements  relative  to  each  other  and 
the  main  frame  known,  an  appropriate  spring  constant  could 
be  determined  as  follows  (refer  to  Figure  C63A) : 

General  Equation:  F  =  KA 

where , 

F  =  applied  force 
A  =  spring  deflection 
K  =  spring  constant 
F  =  Fg  +  M.g 
where , 

F  =  total  applied  force  on  bogie 

Fs  =  resultant  force  due 

M^g  =  force  due  to  weight 

Track-spring  constant  K  =  Z  = 

A 


to  suspension  react ic-r: 


of  i*-*1  bogie 
Fs  +  Mig 
A 
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FORCE,  KIPS 


VELOCITY,  IN./SEC 


Fig.  C65 .  M60A1  Suspension  Damping  Force  vs  Velocity 
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b.  18  -in. -high  obstacle;  2  mph 

Fig.  C 66.  Relative  displacements  of  bogies  on  M60A1 
for  computing  track  spring  constants 
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where  A  is  relative  displacement  between  adjacent  bogies. 

NOTE:  The  track  spring  is  allowed  to  exert  only  positive 

forces,  i.e.,  it  cannot  exert  a  downward  pull  on  the  bogies. 


Close  observation  further  revealed  that  for  both  the 
M60  and  the  M113  approaching  an  obstacle  larger  than  about 
6  inches,  the  initial  track-obstacle  contact  tended  to 
lift  the  front  bogie  up  and  guide  it  over  the  obstacle. 

This  lifting  has  a  significant  effect  on  the  longitudinal 
motion.  To  simulate  this  effect,  massless  points  were 
positioned  in  front  of  the  first  bogie  each  at  a  different 
threshold  height,  to  conform  to  the  geometry  of  the  leading 
portion  of  the  track.  The  influence  of  the  points  in 
lifting  the  front  bogie  depends  on  the  height  and  shape 
of  the  encountered  obstacle.  At  the  time  of  this  study, 
no  information  was  available  to  enable  the  determination 
of  an  effective  spring  constant,  and  an  arbitrary  value 
of  600  lb/in.  was  chosen.  This  arbitrary  value  makes  the 
simulation  of  the  longitudinal  acceleration  the  weak  point 
in  the  system,  but  since  the  vibration  limits,  which  were 
the  chief  concern,  generally  occur  first  in  the  vertical 
mode,  the  longitudinal  motions  were  not  of  interest  in 
this  particular  study.  However,  it  is  noted  that  with 
proper  determination  of  the  leading  spring  constant  the 
longitudinal  accelerations  could  be  adequately  simulated. 
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Fig.  C67 .  Schematic  Drawing  of  Truck  Model  Illustrating 
Spacing  of  Profile-Tire  Segment  Intervals 
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Tire  and  bogie  spring  segments 


The  segmented  wheel  concept*  was  used  in  both  the 
wheel  and  track  models  to  (a)  provide  the  flexibility  for 
predicting  longitudinal  accelerations  (if  needed),  (b) 
include  the  important  effects  of  the  tire  and  bogie 
geometry,  and  (c)  incorporate  a  means  for  accounting  for 
the  effects  of  the  envelopment  characteristics  of  tires 
and  tracks.  Each  tire  and  bogie  was  divided  into  an 
appropriate  number  of  segments  with  the  segments  spaced 
so  that  their  peripheral  projections  onto  the  horizontal 
plane  would  be  spaced  at  4-inch  intervals  (Figure  C67). 

As  a  result,  all  profile  points  were  interpolated  to 
4-inch  spacing  prior  to  input  to  the  models.  To  account 
for  track  thickness  2  inches  were  added  to  the  radii  of 
each  bogie.  The  spring  constants  for  the  pneumatic  tire 
models  were  obtained  by  first  measuring  the  load-deflection 
relation  for  each  tire  at  the  desired  inflation  pressure 
for  the  purpose  of  selecting  a  characteristic  load-deflection 
coordinate.  For  example,  the  load-deflection  relation 
for  the  11.00-20,  12-PR  tire  at  20  psi  inflation  pressure 
(Figure  C68)  was  such  that  an  applied  centerline  deflection 
of  1.35  inches  produced  a  force  of  3,000  pounds.  At  this 
deflection,  three  spring  segments  are  influenced  (Figure 
C69).  The  spring  constant  can  be  computed  from  the 
statics  equation:  ^ 

F  =  K  cos0z-  Sf 
2=1 

where,  £ -  is  the  deflection  of  the  i*"*1  spring  defined 

as : 

S,-  =  Yf  -Ti  -  Z  for  Y i  -TV  -  Z  ^  O 
Sz'  “  O  for  Yj  -  Tj  —  Z.  <0 


*Lessem,  A.S.,  "Dynamics  of  Wheeled  Vehicles;  A  Mathematical 
Model  for  the  Traversal  of  Rigid  Obstacles  by  a  Pneumatic 
Tire,"  Technical  Report  M-68-1,  Report  1,  May  1968,  U.S. 

Army  Engineer  Waterways  Experiment  Station,  CE,  Vicksburg, 
Miss  . 
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^  =  vertical  height  of  terrain  profile  beneath  ic^ 
segment.  For  this  case,  =  1.35"  =  a 
constant 

Z  =  vertical  displacement  of  axle,  in  this  case 
Z  =  0 

T^=  height  from  the  zero  reference  to  the  ifc^ 
spring  of  the  undeflected  wheel  (see  Figure 
C69) 

0.=  angle  to  the  i*1*1  bogie  measured  from  a 
vertical  ray  through  wheel  center 

For  this  case,  and  due  to  the  symmetry  of  the  segments 
about  the  center  line,  the  equation  reduces  to: 

3000  -  K[l.35  cos  0°  +  2  (1.02  cos  12.5°)] 
where  the  effective  radial  deflections  are: 

=  1.35  in. 

S4=  =  1.02  in. 

Solving  for  K  yields: 

K  =  900  lb/in. 

Defining  GAMMA  =  k  cos  <b ^  =  900  cos  yields  the  following 
relations  for  the  segments  of  the  front  and  rear  wheels: 

Front  Wheel  Rear  Wheel 


GAMMA 

(1)  =  GAMMA 

(9) 

=-  GAMMA 

(10)  =  GAMMA 

(18) 

=  581 

GAMMA 

(2)  =  GAMMA 

(8) 

=  GAMMA 

(11)  =  GAMMA 

(17) 

-  716 

GAMMA 

(3)  =  GAMMA 

(7) 

=  GAMMA 

(12)  =  GAMMA 

(16) 

=  817 

GAMMA 

(4)  =  GAMMA 

(6) 

-  GAMMA 

(13)  =  GAMMA 

(15) 

=  878 

GAMMA 

(5)  = 

GAMMA 

(14)  = 

=  900 
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A  similar  relation,  SIGMA,  is  defined  for  the  horizontal 
component,  K  sin  and  is  used  when  calculations  of 
horizontal  motions  are  desired. 

The  segment  deflections  are  permitted  to  have  positive 
values  only;  negative  values  are  replaced  by  zero.  The 
reference  from  which  vertical  displacements  are  measured  is 
the  point  that  locates  the  axle  when  the  wheel  is  imagined 
to  be  rigid  and  in  static  equilibrium.  Static  deviations 
from  this  reference  correspond  to  static  wheel  deflections, 
and  superposed  on  these  static  deflections  are  the  dynamic 
obstacle-induced  deflections. 

The  spring  constants  for  the  bogie  segments  were  ob¬ 
tained  in  the  following  manner.  The  periphery  of  the  bogies 
of  both  the  M60  and  M113  was  encased  in  a  hard,  abrasive- 
resistant  rubber  shell  approximately  2  inches  thick.  A 
channel  down  the  center  divided  this  shell  into  2  bands 
each  approximately  5  inches  wide  for  the  M60  and  2.5  inches 
wide  for  the  M113.  The  first  step  in  determining  segment 
constants  was  to  consider  the  relations  between  linear  force- 
deflection  and  stress-strain  curves  of  the  type  shown  in 
Figure  C70.  The  equation  describing  force  F  and  deflection 

S  is: 

F  -  K  S  (1) 

Likewise,  the  equation  describing  stress  O'  and  strain  & 
is : 

0“  =  E6  (2) 

The  idea  is  to  obtain  a  relationship  between  the  constants 
of  proportionality  K  (spring  constant)  and  E  (modulus  of 
elasticity) . 

Defining  CT=  ~  and  £  =  —  =  —  ,  the  stress-strain 

A.  L  L  ps 

relation  (2)  can  be  written  as  F  =  EA*  2.  .  (3) 

L 

Equating  the  forces  in  equations  (1)  and  (3)  yields  the 
desired  relation  between  K  and  E. 

K  =  EA 
L 
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(4) 


where 


K  =  spring  constant  in  lb/in. 

E  =  modulus  of  elasticity  in  psi 

A  =  the  area  upon  which  pressure  is  being  applied 
L  =  thickness  of  rubber  casing 

The  thickness,  L,  was  taken  as  2  inches  for  all  the 
bogies.  The  effective  area  was  determined  to  be  that  portion 
of  the  rubber  shell  beneath  the  bogie  hub  upon  which  pressure 
was  being  applied.  The  areas  were  computed  to  be  approxi¬ 
mately  20  square  inches  for  the  M60  and  14  square  inches 
for  the  M113.  A  value  of  500  psi,  obtained  from  a  handbook 
of  material  properties  for  a  hard,  abrasive-resistant 
rubber,  was  used  for  the  modulus  of  elasticity. 

Substituting  these  values  into  equation  (4)  yielded 
spring  constants  of  5000  lb /in.  and  3500  lb /in.  for  the 
M60  and  M113  bogies,  respectively.  The  schematics  of  the 
bogies  in  Figure  C71  illustrate  the  manner  in  which  these 
values  were  obtained. 

No  damping  was  incorporated  in  the  tire  or  bogie 
compliance,  since  in  actual  vehicles  this  damping  is 
negligible  compared  with  the  damping  of  the  suspensions. 

The  differential  equations  describing  these  vehicles 
were  programmed  for  solution  on  a  GE-400  series  computer 
by  the  Runge-Kutta-Gill  numerical  integration  scheme. 

Equations  for  M113,  M151  and  M35 

The  equations  for  the  M113  are  as  follows: 

a.  Forces  and  moments  on  main  frame 


(1)  Sum  of  vertical  forces 

5  5  _ 

Mz  --[J! /kCAzOAf  -f-Z  cCA2')Az-  +MgJ 

(2)  Sum  of  moments 

re  =-[(: i:  ma^a,-  +H  c( a/)A2-  -Z.  kca^a* 

2=1  2=1  2=3 

_ . 

c-213  -XcGv)A2-)4-  co’sQ  j 


M60  Bogie 


M113  Bogie 


Fig.  C71.  Schematic  Drawings  of  M6lOA1  an4  M113  Bogies 
Illustrating  Effective  Areas  of  Pressure  Application 


C-214 


(3)  Sum  of  horizontal  forces 

Mx  =  j;  Hf 

2=1. 

b .  Vertical  forces  on  bogies 

4  cCA^AA j_  —  f-J-cho  +\4. 

=  kCAg^A^  ’^Z-CAg'^A^  — 4/42^2  ~~  04^2. 

MS  Z3  —  k (A3))  A3  4  C  ~~  f-^zh  /M  —  ^3 

M4z4  -  K  (AAA4.  +  C  CA4)A4  -Ms  S3  -t  /^4  S4  -  M40  -f-\4 
M5  z5  -  k (Aj) A 5  +  c ^As)A5  -m484  -  M5 0  4  V5 

where  for  1^2<Z  ,  A2-  =  Z  4  4?z  SZ7Z&-  -  Zz 

hi  *  z  +jHz9co 50  -Zz* 
and  for  3  <1  95  ,  Af  =  Z  -.Az  ^2/2  9  —  Z/ 

A  2  =Z-i2  0COS0-Z2- 

The  equations  for  the  M151  are  as  follows: 
a.  Forces  on  body 

Mz  =  k^(Ai)A±  4  C /j_ £ A^.1) A_l 

4 k2 (A^A 2.  4 c2 (A2.))A2  —  Mg 
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*  9 

I©=  "kiCAi^a  Aa  +  CiCAi-)  Cl  Ai 
-1<2CA2)bA2  -C£CAZ>bA2 

where  A  j_  =  Z  j_  ~  Z  —  Cl  S2-  Yi  Q  ^  A  ^  —  Z^_  ""  Z  ~  £1  Q  COS  Q 
A2  -  7,2  -2  ■hb'oing  ,  A2  =  Zz-Z+^@C6s9 

b .  Forces  on  front  axle 

=  — 1<4.CAi)Ai  -CiCA^Ai  -M±g  +V± 

c.  Forces  on  rear  axle 

M2Z2  =  “1^2 ^A 2)  A 2.  C2(rA2,V)A2  -  M20  *+■  Vi 

The  equations  for  the  M35  are  as  follows: 
a.  Forces  and  moments  on  main  frame 

(1)  Sum  of  vertical  forces 

Ms  =  ZL  LCA^Ai  +i  cCAi)Az  -  M9 

2=  1  2=1 

(2)  Sum  of  moments 

I©  =D<CA0Ai  +  C^1')Ai]4  cose 

-Z_  [-kCA^A;  +  C CAf)Ai  J Z?/  casS 

(3)  Sum  of  forces  on  i  n  axle 
for  i  =  1,  2,  3 

V\{ii  =  -'kCA^Az  -cChiihi  -M 2*9  +Vf 

where  (for  all  the  above  equations) 

Ai  =  %  -6z  sin  9) 

A2  =  ’Z^-C'Z  sinQ  +  ^3  sz n  f£) 

A3  =  s in9-£4  sin  A) 
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Ai  =•  z±  -  Ci  +  0  cos  0) 

A2  ~  Z2  -  C  i,  -J2-Z  o  COS  0  -h  J?3  jk  COS/3} 

As~  Z3  -Cz  -^2  Q  COS0  COS/0) 

^3  =  OL.rcta.Ti  C'Zz  -'Zg)/ D 

V.  “  vertical  force  on  it^1  wheel  due  to  wheel 
segments 


Generation  of  Random  Profiles 


An  essential  requirement  for  this  study  was  the  capa¬ 
bility  to  generate  artificial  terrain  profiles  composed  of 
random,  normally  distributed  amplitudes  and  to  have  con¬ 
trol  of  the  frequency  content  and  pertinent  statistics. 

A  computer  program  generated  these  low-pass,  Gaussian 
profiles  with  a  zero  mean  and  specified  rms  by  the  follow¬ 
ing  procedures:  A  random  number  chain,  generated  by  the 
power  residue  method,  was  entered  at  an  arbitrary  starting 
point,  and  12  uniform,  random  numbers  were  computed  and 
summed.  By  the  central  limit  theorem,  a  single  random, 
normal  number  was  then  computed  by  the  formula: 

v  -  (A  -  6)  (CTn) 


where 

V  =  the  random,  normal  number 
A  =  the  sum  of  12  uniform,  random  numbers 
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<T  =  the  standard  deviation  desired  for  the  sequence 
of  random,  normal  numbers 

This  technique  for  computing  random,  normal  numbers 
is  often  referred  to  as  the  "sum  of  the  uniform  deviates" 
method . 

The  calculations  were  repeated  until  a  sequence  of 
300  random,  normal  numbers  was  obtained.  Although  the 
mean  of  the  resulting  sequence  was  always  very  nearly  zero, 
a  shifting  operation  was  performed  to  insure  a  mean  value 
of  absolute  zero.  The  frequency  distribution  of  the 
sequence  at  this  point  approximates  that  of  white  Gaussian 
noise  in  that  its  with  an  average  mean  square  level  of 
QTn  .  To  obtain  the  desired  spectrum,  the  sequence  was 
then  passed  through  a  numerical  system  that  simulated  an 
analog  low-pass  filter  with  a  certain  "time  constant" 

T  =  RC  and  cut-off  frequency  cC.  The  analog  equivalent 
of  this  system  is  shown  in  Figure  C72.  This  system  is 
formulated  numerically  by  the  following  formula: 

Yl+1  '  xi+l  <°>  ^n)  -  Yte 

where 

X  (0,  CTn)  =  sequence  of  random,  normal  numbers  pre¬ 
viously  calculated 

oi  »  the  system's  cut-off  frequency  (temporal 
or  spatial) 

'X  =  the  time  (or  distance)  interval  between 
points  in  the  sequence. 

(NOTE:  The  points  are  assumed  to  be 

equidistant) 

Y  =  the  resulting  sequence 

The  clZ  product  gives  complete  control  over  the  spec¬ 
trum  shaping.  It  was  determined  after  several  trials  that 
oCz  ~  0.055  gave  the  best  normality  condition  and  a  power 
spectrum  of  the  desired  form.  The  desired  roughness  is 
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achieved  by  specifying  the  appropriate  rms  of  the  resulting 
sequence.  This  value  is  obtained  by  the  formula: 


rms 


The  computer  program  entitled  "NOISE  1"  listed  later 
in  this  Appendix  performs  the  operations  for  generating  the 
random,  normal  sequences.  If  the  only  change  in  the  profile 
construction  process  is  the  rms  level,  then  the  resulting 
profiles  will  be  similar  in  all  respects,  except  that  their 
respective  elevations  will  be  proportionally  related.  That 
is,  for  rms  levels  of  1  and  3  (as  illustrated  in  Figure 
C73)  the  profiles  are  similar  in  structure  but  one  has 
elevations  three  times  that  of  the  other. 


Absorbed  Power  Calculations 


As  part  of  the  vehicle  ride  dynamics  model,  it  is 
desired  to  compute  absorbed  power.  The  concept  of  absorbed 
power  was  developed  by  Dr.  R.  A.  Lee  of  TACOM  as  a  measure 
of  the  rate  at  which  vibratory  energy  is  absorbed  by  humans 
and  is  thought  to  be  a  meaningful  descriptor  of  human 
vibration  tolerance. 

It  was  decided  to  develop  an  algorithm  capable  of 
producing  time  histories  of  absorbed  power.  The  input  to 
this  algorithm  was  to  consist  of  the  on-going  time  history 
of  acceleration  being  produced  elsewhere  in  the  vehicle 
dynamics  model. 

The  outcome  of  efforts  at  WES  to  fabricate  the  absorbed 
power  algorithm  resulted  in  the  combination  of  the  following 
elements : 


a.  The  acceleration-to-force  transfer  function 
shown  in  Figure  C74. 

b.  The  flow  chart  in  Figure  C75  producing  absorbed 
power  from  force  and  acceleration. 
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The  algorithm  was  converted  to  digital  form  and 
inserted  directly  into  the  ride  dynamics  computer  program 
to  provide  absorbed  power-time  histories  during  each 
vehicle  simulation.  The  numerical  equations  were  derived 
from  the  acceleration-to-force  transfer  function  are  given 
below.  The  variables  and  coefficients  correspond  to  those 
shown  on  the  analog  flow  diagram.  They  are  as  follows: 

Xll  =  -0.1755a(t)  -  2.742U2 

X10  =  -1. 755a(5)  -  388.8X11  -  46.67X10 

U2  =  -0 . 1755a(t)  -  1.042X10 

X9  =  -10U2  -  6.259U1 

X8  =  -10U2  -  78.59X9  -  55.28X8 

U1  -  -U2  -  3.246X8 

X7  =  -100U1  -  47  78U0 

X6  =  -10U1  +  71.6X7  -  53.49X6 

U0  =  -Ul  +  1.318X6 

X5  =  -100U0  -  59X5 

where  X5  represents  the  simulated  force  and  is  obtained 
through  integration  of  X5  by  the  Runge-Kutta-Gill  algorithm. 

The  equations  for  producing  the  absorbed  power  from 
the  simulated  force  and  acceleration  inputs  are  obtained 
from  the  analog  flow  chart  in  Figure  C75  depicting  the 
integration  of  acceleration  to  obtain  velocity  and  the 
integration  and  division  by  time  of  the  force-velocity 
product  as  required  by  the  algorithm.  These  equations  are: 

X2  =  -0.01294a(5) 

XI  =  0.0873  X2X5 

PWR  =  100X1/T 
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FIGURE  C75.  Analog  Flow  Chart  for  Absorbed 
Power  Circuit 


Lack  of  knowledge  of  the  voltage  scale  factors  in 
the  acceleration-to-force  transfer  function  required  the 
determination  of  a  factor  multiplying  the  force-velocity 
product  that  would  produce  the  proper  values  On  the 
calibration  chart. 

The  constant  comfort  curve  (Figure  C76)  developed 
by  TACOM  for  vertical  vibration  was  used  to  test  the 
absorbed  power  algorithm.  This  was  done  by  taking  values 
of  frequency  and  rms  accelerations  corresponding  to 
points  on  the  curve,  forming  sinusoidal  acceleration-time 
histories  with  these  numbers,  and  inserting  these  acceler¬ 
ations  into  the  absorbed  power  equation.  The  desired 
outcome  was  the  appearance  of  an  absorbed  power  of  6  watts, 
corresponding  to  the  constant  comfort  curve.  The  arbitrary 
factor  was  determined  to  be  that  value  that  caused  the  out¬ 
put  of  the  absorbed  power  algorithm  to  be  suitably  near 
to  6  watts  over  the  frequency  range  from  0.50  to  20  cps, 
when  acceleration  amplitudes  corresponding  to  the  TACOM 
constant  comfort  curve  were  supplied  as  input. 

The  results  of  the  calibration  checkout  are  shown  in 
Figure  C77.  Ideally,  the  absorbed  power  would  be  6  watts 
for  all  inputs.  However,  for  frequencies  up  to  about  20 
cps,  which  is  the  range  of  interest  in  vehicle  dynamics 
problems,  the  deviation  from  6  watts  is  not  significant. 

Ten  cycles  of  acceleration  input  were  used  to  compute 
each  value  of  absorbed  power.  Figures  C78,  C79  and  C80 
show  representative  comparisons  between  time  domain  and 
frequency  domain  calculations.  Results  from  processing 
vehicle  accelerations  of  actual  field  tests  reveal  that 
after  a  short  period  of  travel  over  relatively  stable  sur¬ 
faces,  these  transient  fluctuations  stabilize  and  converge 
to  a  value  equivalent  to  that  computed  via  frequency  domain 
approach . 


Determination  of  Limiting  Speed 
Singular  Obstacles 

Obstacle-limiting  speeds  for  a  given  vehicle  can  be 
readily  determined  either  by  actual  tests  or  via  computer 
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RMS  ACCEL,  FT/SEC2 


FREQ ,  HZ 


ABSORBED  POWER,  WATTS 


52.0 

0.5 

5.03 

45.0 

0.6 

5.75 

37.0 

0.7 

5.51 

32.0 

0.8 

5.55 

29.0 

0.9 

5.93 

25.0 

1.0 

5.59 

16.5 

1.5 

6.19 

11.9 

2.0 

6.39 

9.0 

2.5 

6.21 

7.2 

3.0 

5.95 

6.2 

3.5 

5.89 

5.8 

4.0 

6.15 

5.7 

5.0 

6 . 26 

6.5 

6.0 

6.26 

8.0 

7.0 

6.23 

9.9 

8.0 

6.56 

10.2 

9.0 

5.71 

11.0 

10.0 

6.04 

17.5 

15.0 

6.54 

24.0 

20.0 

6.89 

28.0 

25.0 

6.85 

32.0 

30.0 

6.97 

36.0 

35.0 

7.07 

40.0 
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7.11 

49.0 
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7.43 
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60.0 

7.81 

65.0 

70.0 

7.81 

73.0 

80.0 

8.09 

82.0 

90.0 

8.54 

90.0 

100.0 

8.73 

Fig.  C77.  Checkout  of  Absorbed  Power 
Computations  for  Constant 
Comfort  Levels 
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simulations.  The  tests  or  simulations  are  conducted  to 
determine  the  speed  at  which  2.5-g  vertical  acceleration 
occurs  for  a  series  of  obstacle  heights.  The  resulting 
relation  is  of  the  form  shown  in  Figure  C81.  Discrete 
coordinates,  taken  from  such  a  curve,  serve  as  the  required 
input  to  the  analytical  model.  Similar  relations  for  the 
four  reference  vehicles  are  given  in  Figure  C82. 

Stable  Ground  Roughness 

The  speed  limit  of  the  vehicle  is  defined  by  the  speed 
at  which  the  driver's  absorbed  power  reaches  a  stable  level 
of  6  watts.  In  order  to  use  the  roughness  index  as  an 
input,  a  digitally  programmed  random  number  generator  is 
employed  that  provides  random  profiles  with  the  specified 
roughness  level  and  PSD  characteristics.  The  vehicle  model 
traverses  each  profile  until  a  speed  at  which  a  stable 
6-watt  level  of  absorbed  power  is  reached.  Experience 
has  shown  that  inputs  with  a  high  degree  of  statistical 
stationarity ,  such  as  those  produced  by  the  computer 
process,  require  approximately  200  feet  of  travel  before 
stable  vehicle  responses  are  attained.  For  actual  terrains, 
which  are  generally  less  "stationary",  at  least  300  feet 
of  travel  is  normally  required.  The  profile  is  then 
changed  to  correspond  to  another  roughness  level  and  the 
simulation  repeated.  This  process  is  continued  until  a 
sufficient  range  of  surface  roughness  is  covered.  A  plot 
depicting  ride-limiting  speed  as  a  function  of  surface 
roughness  is  then  constructed  in  the  manner  shown  in 
Figure  C83 .  A  similar  plot  establishing  the  roughness-speed 
characteristics  for  the  four  reference  vehicles  is  given 
in  Figure  C84. 

Coordinates  are  selected  from  the  graph  to  serve  as 
input  to  the  analytical  model.  Plots  of  the  type  shown  in 
Figures  C81  and  C83  can  be  readily  obtained  for  each 
vehicle,  and  serve  as  ready  catalogs  of  the  speed  limitation 
imposed  by  human  tolerance  to  shock  and  vibration  environ¬ 
ments  . 


Speed  at  2.5-g  Vertical  Acceleration,  mph 


Fig.  C82 . 


Speed  at  2.5-g  Vertical  Acceleration  Versus  Obstacle  Height 
for  the  M60A1,  M113,  M35,  and  M151  Vehicles 
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Speed,  mph,  at  Occurrence  of  6  Watts 


Speed,  mph,  at  Occurrence  of  6  Watts 


Surface  Roughness  -  RMS  Elevation,  in. 


Pig .  C84 .  Rid e-L fmit ing  Spaed 
Speed  at  6  Watts  yersus  Surface  Roughness 

LEGEND: 

G  M151 
0  Mil  3 
&  M60 
0  M35 
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Computer  Programs 


The  ride  dynamics  computer  program  VDPROG  is  of 
such  a  structure  that  each  specific  vehicle  is  included 
as  a  separate  entity  in  the  form  of  subroutines  that  are 
controlled  by  a  general  executive  program.  This  parti¬ 
cular  structure  permits  the  most  efficient  running  time 
per  problem  and  yet  is  suitably  flexible,  requiring  little 
programming  effort  for  the  inclusion  of  each  new  vehicle. 
It  is  written  in  a  conversational  mode  for  time-sharing 
operations . 

Program  Input 

The  input  to  the  program  can  consist  of  a  terrain 
profile  in  the  form  of  a  file  containing  equally  spaced 
elevations,  or  it  can  be  a  file  describing  a  discrete 
obstacle  or  series  of  obstacles,  or  it  can  be  a  set  of 
statistical  quantities,  in  which  case  the  program  then 
calls  upon  a  subroutine  to  generate  internally  a  random 
profile  composed  of  the  specified  statistical  quantities. 
A  present  restriction  on  the  input  profile  is  that  the 
elevation  points  must  be  spaced  at  4-inch  intervals. 
Therefore,  regardless  of  what  spacing  an  original  profile 
may  have,  it  is  first  processed  by  an  interpolation  pro¬ 
gram  that  creates  via  linear  interpolation  a  file  of 
elevations  with  4-inch  spacing. 

Program  Output 

Optional  outputs  are  available  that  provide  the 
user  with  the  response  quantities  most  generally  used  in 
the  field  of  vehicle  dynamics  studies,  such  as  peak 
accelerations,  rms  accelerations,  driver  absorbed  power 
and  detailed  motion-time  histories  of  each  degree  of 
freedom.  A  limited  output  is  printed  on  the  teletype  at 
a  time  increment  determined  by  the  user.  If  desired,  a 
complete  detailed  printout  at  each  time  step  can  be 
obtained  from  a  file  by  the  high-speed  printer  at  the 
WES  Automatic  Data  Processing  Division. 
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Operating  Procedures 


A  teletype  printout  for  a  discrete  obstacle  test  is 
shown  in  Figure  C85  to  illustrate  the  questions  to  be 
answered  at  the  start  of  the  program  and  the  type  of 
printout  for  the  response.  The  print  interval  was  chosen 
as  0.25  sec.  The  procedures  for  running  this  program  are 
as  follows: 

a.  Call  the  main  program  -  VDPROG. 

b.  Give  name  of  vehicle  to  be  simulated. 

c.  Choose  the  desired  output  by  answering  "yes"  or 
"no"  to  the  questions  that  follow. 

d.  Upon  answering  the  questions,  the  program  then 
automatically  runs  to  completion. 

Some  noteworthy  comments  are  in  order  to  explain 
certain  options.  A  "yes"  answer  to  A  DETAILED  OUTPUT 
FILE?  will  cause  the  program  to  generate  a  detailed  file 
of  the  motions  of  each  degree  of  freedom  and  the  driver, 
rms  of  all  accelerations,  absorbed  power,  and  peak 
accelerations.  The  program  will  ask  the  user  to  designate  a 
name  for  this  output  file,  and  it  can  then  be  listed  on  the 
high-speed  printer.  A  "no"  answer  precludes  the  generation 
of  such  a  file. 

The  question  DRIVER  MOTIONS?  is  for  those  cases  where 
the  driver  is  positioned  away  from  the  C.G.  of  the  sprung 
mass.  A  "yes"  answer  will  cause  the  program  to  compute  * 
the  driver  motions  from  the  bounce  and  pitch  motions  at 
the  C.G.  A  "no"  answer  to  this  question  will  yield  only 
the  motions  at  the  C.G.  of  each  mass  in  the  vehicle  model. 

A  "yes"  answer  to  RMS  OF  ALL  ACCELS?  will  cause  the 
program  to  compute  the  rms  for  all  accelerations;  a  "no" 
answer  precludes  the  program  from  making  the  calculations . 

A  "yes"  answer  to  EXTERNAL  FILE  INPUT?  tells  the 
computer  that  the  profile  input  will  be  from  an  external 
file  and  will  cause  the  computer  to  ask  for  the  name  of  the 
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H(JN:VDPROn 


VDPROG  09:24  05/10/71 

THIS  IS  THE  GENERALIZED  TVO-DIMENS  IONAL  VEHICLE  MODEL.  PROGRAM 
NAME  OF  VEHICLE  7  M-151 

DO  YOU  l ANT  THE  FOL LOVING  OPTIONS 
ABSORBED  POVER  7  XF.S 

A  DETAILED  OUTPUT’  FILE  >  NO 

PEAK  ACCELERATIONS  7  YES 

DRIVER  MOTIONS  7  YES 

RMS  OF  ALL  ACCELS  7  YES 

EXTERNAL  FILE  INPUT  7  YES 

VEHICLE  VELOCITY  IN  MPH.  7  10 

TTY  PRINTOUT  TIME  INTERVAL  7  • 25 

NAME  OF  INPUT  PROFILE  FILE 
7  OBSA 


VELOC  IT  Y=  10*00  MPH  C  176.0  IPS) 
DELTA-L=A .000  DELTA-T=0 . 0227 
NSTEPS®  22  H=. 001 033 

VEHICLE  IS:  M- 151  JEEP 
INPUT  PROFILE  IS: 

A  4  INCH  TRAPEZOIDAL  OBSTACLE 


DISPL 

VELOC 

ACCEL 

RMS ACC 

T I  ME  = 

0.000  INPUT® 

0.000  AB 

SOnHED  POVER®  0 . 0 ( 

C-0 

-A  .30300 

0.00000 

0. 00000 

0.00000 

PITCH 

0  •  003<l2 

0.00000 

0.00000 

o. 00000 

AXLE  1 

-••3165  6 

0.00000 

0.00000 

0. 00000 

AXLE  2 

-.33770 

0.00000 

0.00000 

0.00000 

DRVEF: 

'  -A. 30300 

0.00000 

0.00000 

0.00000 

Fig.  C85.  Teletype  Printout  from  Computer  Program 
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TIKE*  0.273  INPUT*  0.000  ABSORBED  POWER*  2.731 


C-G 

- 1 . 76834 

3.59814 

-.34038 

0.49184 

PITCH 

0.06617 

-.04019 

-2. 87868 

6.27680 

AXLE  1 

0. 70528 

20.93096 

-2. 95146 

6.64551 

AXLE  2 

-.80537 

-.13143 

0.00807 

0. 06462 

DRV  Eft 

-1 .76834 

3. 59814 

-.34038 

0.49184 

TIME* 

0.523  INPUT 

=  0.000  ABSORBED  POKE 

R=  1 . 744 

C-G 

-4 . 60874 

-7.89029 

0.28938 

0.441 05 

PITCH- 

-  .  00849 

. -.04715 

2.61962 

5.32405 

AXLE  1 

-  .92796 

-.23212 

-.  1644  8 

4.93000 

AXLE  2 

-  .86383 

-.63290 

0.02296 

O'.  0  7  731 

DRVEK 

-4 . 60874 

-7.89029 

0.28938 

0.44105 

TIME* 

0.773  INPUT 

=  0.000  ABSORBED  POKER-  2.788 

C-G 

-3.2  64  65 

25.431 13 

0.  13839 

0.4  365  7. 

PITCH 

-.02695 

-.56173 

-.722  71' 

5.14128 

AXLE  1 

- . 83768 

0.26636 

0.04103 

4.05505 

AXLF.2 

3.25439 

-59.32187 

-6.93707 

2 . 6.64  79 

DRVF.R 

-3.26465 

25.43113 

0. 13839 

0.43657 

TIMF.= 

0.886  INPUT 

=  0.000  ABSORBED  POKER-  1.713 

C-G 

-1.29009 

9.33573 

-.40595 

0.43849 

PITCH 

-.06072 

-.08965 

3.40869 

5. 15666 

AXLE  1 

-.75357 

0.66210 

-.02565 

3.78621 

AXLE  2 

1.39995 

22.44274 

-2.69556 

3.55318 

DHVER 

-1 .29009 

9.33573* 

-.40595 

0.43849 

PEAK  ACCELERATION  VALUES 
MAXIMUM  MINIMUM 


C-G ACC 

0.9799 

-.3131 

PITCH 

1  1 . 5535. 

-1 1.5919 

AXLE  1 

1  6.044  6 

-7.  7388 

AXLE  2 

10.7903 

-7.9264 

DR I  VSR 

0.9799 

-.8131 

PUNNING  TIME* 

126.9  SECS 

READY 

I/O.  TIME 


•20.1  SECS 


Fig.  C85(Continued) 
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file.  A  "no"  answer  indicates  the  profile  is  to  be  gener¬ 
ated  internally,  and  the  program  asks  for  the  inputs  to 
the  subroutine . 

The  VEHICLE  VELOCITY  question  is  obvious. 

The  TTY  PRINTOUT  TIME  INTERVAL?  permits  the  user  to 
specify  the  time  increment  of  the  teletype  printout.  A 
zero  input  here  will  yield  a  teletype  printout  every  time 
step . 


The  question  NAME  OF  INPUT  PROFILE  FILE?  is  simply 
asking  for  the  name  of  the  file  containing  the  profile 
elevations . 

This  program  was  written  with  four  basic  ideas  in 

mind : 

a.  The  program  would  be  run  on  a  GE  430  Time  Share 
system. 

b.  The  program  should  be  as  efficient  and  yet  as 
general  as  possible. 

c.  The  program  should  have  sufficient  I/O  options 
to  provide  adequate  flexibility  for  dealing  with  the 
various  types  of  dynamics  simulations . 

d.  The  vehicle  parameters  could  be  easily  changed, 
thus  permitting  the  inclusion  of  any  specific  vehicle 
with  little  programming  effort. 

A  teletype  printout  illustrating  the  input  requirements 
for  calculating  terrain  profiles  is  shown  in  Figure  C86. 

The  variable,  TAU,  is  the  desired  spacing  of  the  profile 
points  (can  be  any  units  of  length) .  RMS  is  currently 
just  a  dummy  variable;  it  is  indirectly  related  to  the 
distribution  of  the  original  sequence  of  random,  normal 
numbers  with  a  flat  spectra,  that  is,  before  frequency 
shaping.  ALPHA  controls  the  cut-off  frequency  and  is 
generally  given  a  value  such  that  the  (ALPHA)  (TAU) 
product  =  0.055.  DESRMS  is  the  desired  RMS  level  of  the 
resulting  profile.  IX  is  the  starting  point  of  the  random 
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number  chain,  and  NPTS  is  the  number  of  points  specified 
in  the  resulting  profile. 

Flow  charts  illustrating  the  logic  of  the  programs 
and  subroutines  comprising  the  Ride  Dynamics  Model  are 
given  in  Figures  C86,  C87,  C88,  C89,  C90,  C91,  C92,  C93, 
C94,  C95  and  C96. 


0241 


OLD:  MO  I  S  El 


rf;;ady 

RUNNH 


TAU, RMS, ALPHA, DESRMS, I  X, MPTS 
’12,  5,  .0046,  1 ,2556,  300 

SI GN AN*  1.61650956  3 E+ 0  0 

X-BAR  AFTER  GAUSS*  1 . 0  61  4956 1  7E-0 1 
X-BAR  AFTER  SHIFT*  4. 608 1 064S9E- 1 1 
RMS=  1 . 000000000E+00 
FACT*  1 .  1 14613877E-01 
OUTPUT  FILE  NAME 
’RMS  1 


Fig.  C86.  Teletype  Printout  from  Noise 
Illustrating  Input  Requirements  and 
Output  Parameters 


1  Program 
the 
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MAIN  PROGRAM:  VDPROG 


PURPOSE:  To  simulate  responses  of  vehicles  traveling  over  rough  surfaces 


*The  accomplishment  of  these  actions  depends  on  the  selected  options 

Fig.  C87 
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SUBROUTINE  SHIFT 


PURPOSE:  To  shift  profile  array,  point  by  point,  beneath  the  vehicle 


Start 


PASTP(I)  =  PROFIL(I) 
PROFILU  +  1)  *  PROFIL(I) 
I  -  I  -  1 


Fig.  C88 
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I 


SUBROUTINE 


Return 


from  an  external  file 


Read  File  Identification 
FID(I),  I  =  1,12 


SUBROUTINE  MOISIII 


PURPOSE:  To  internally  generate  a  random  profile  with  normally  distributed  amplitudes  and  a  specified 
ma  and  PSD 


Print,  "Type  the  Following 
Noise  Generating  Constants:" 

AA,  SI),  XBAR,  FACTOR,  STNUM,  NITS 


Read,  AA,  SD,  XBAR, 
FACT,  IX,  NPTS 


r-- .  -  Urn . 

IX  -  IX*4099 

1 

1 

■—  -1 _ 

X  -  0. 
IFIR5T  -  1 

1 

•This  operation  is  equivalent  to  the  congruentlal  multiplicative  method  given  by  IX  -  MOD(4099*IX ,2**2 3) 
but  will  work  only  on  a  machine  with  24  bit  integer  words  and  which  uses  two's  complement  representation 


Fig.  C90 
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SUBROUTINE  PRINT 


PURPOSE:  Provides  a  teletype  printout  of  all  pertinent  pre-test  inforwation, appropriate  headings  and  response  quantities. 


Pig. 
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SUBROUTINE  VARFIX 


PURPOSE: 


To  arrange  the  response  motions  in  proper  sequence  for  printout 


Fig,  C92 
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SUBROUTINE  PEAKAC 


PURPOSE:  To  print  the  maximum  and  minimum  accelerations 
at  the  termination  of  the  program 


Fig.  C94 
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SUBROUTINE  DATA 


PURPOSE: 


To  systematically  store  the  vehicle  parameters 
for  insertion  into  appropriate  elements  of  the 
main  program 


Fig.  C95 


C-251 


GENERAL  FORM  OF  A  VEHICLE  SUBROUTINE 


PURPOSE:  To  compute  the  forces  acting  on  the  vehicle  for  substituting  into  the 
RKG  Algorithm 


Fi(?  C96 
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TABLE  Cl 


-  1  - 


VDPROG 


1SLIB  .COST  ,  ,F509 
2$N  DM 
3SRPC 
4$SA  V 

100C  ********STOR A GE  ALLOCATIONS  ******** 

110  COMMONFORCH (6) .FORCT ( 7 ) .FORCK ( 6 ) ,F0RCW(6) 

120  COMMONSPDEF ( 6 ) ,DSPDF ( 6 )  .THRESH (9  )  ,SI GMA (9 )  .GAMMA (9) 

130  COMMON VAR (18)  ,Y  ( 1  00 ) ,P WRVAR (9 ) .DAMP (6) 

140  COMMONACCISS (9) .ACCGS (9  )  ,  ACCMAX  (9  )  ,ACCMIN(9) 

15  0  COMMONSUMRMS  (9)  ,RMS  (9  )  ,LEN  (  1  0  )  .MASS  ( 6  ) 

160  COMMONH ,T .DELTAT  .DELTAL  .VELIPS  , VELMPH  .NSTEPS 

170  COMMONYIN .DRVMAX .DRVMIN .ABSPWR 

180  COMMONDISDRV .VELDRV  .ACCDRV  .RMSDRV 

190  COMMONI FP WR  ,  IFFILE  .IFPACC  ,  I FDRV  ,  I FRMS , I  FI NPT 

200  COMMONNY .IDF ,N AXLES , NSEGS , I FHORZ .FNAME 

210  COMMON  FMASS,  INRTIA,  HORMOM  ,  DRVLEN 

220  COMMCNVEHQI D ( 2) 

230  COMMON  PROFI L ( 1 00 ) .PASTP ( 1 00 ) , I NDEX 

240  DIMENSION  DRI VER ( 4 ) , I  OPT ( 6 ) 

25  0  DIMENSION  FI  D  (  1  2)  .XTNAME  (  4) 

260  DIMENSION  FK  (  18)  ,P  ( 18)  ,Q(  18)  ,PY  (9  )  .PWRFK  (9)  ,PP  (9)  ,QQ  (9) 

270  INTEGER  SETUP(5) 

28  0  REALLEN  .MASS  .INRTIA 

29  0  EQUIVALENCE  (SETUP  , NY  ) 

30  0  EQUIVALENCE (DRI VER ( 1 )  .DISDRV) 

310  EQUIVALENCE  (I  OPT  ( 1  )  .IFPWR  ) 

320  DATAFI D/3 6H INTERNALLY  GENERATED  PROFILE  WITH  SH  , 

330&  30HAPED  PSD  AND  SPECIFIED  RMS.  ,  1H  / 

340  DATAIYES/1HY/.NO/1HN/ 

350  DATA  XTNAME/5HM  -  1  5  1  ,  4HM  -  35 , 4HM  -  60 , 5HM-  113/ 

360  DATAIBELL/458752/ 

370C********VARI  ABLE  I N I TI ALI ZATI ON  ******** 

375  CALL  COST 

380  DO  10  1  =  1.100 

39  0  1  0  Y(I  )=PROFIL(I  )=PASTP(I  )  =  0. 

400  DO  201  =  1,9 

410  P  WR  VAR  ( I  )  -  0 . 

420  QQ(I)  =  0. 

430  ACCISSU  )  =  0. 

44  0  SUM  RMS  (I  )  =  0 , 

45  0  Q(I):0. 

460  ACCMAX  (I  )  =  0. 

470  20  ACCMIN (I ):0. 

480  ACCDRV:  0 . 

490  30301  =  1  ,  18 

500  30  VAR  (I  ) :  0 . 

510  TrO. 

520  S  DVRMS  :  0 . 

530  A  BSP  WR :  0  . 

540  DRVMAX: 0. 
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VDPROG  CONTINUED 


550  DRVMIN-0. 

560  YIN=0. 

57 OC - YIN  IS  THE  PROFILE  INPUT  POINT 

580  H  =  .001 

59  0C----H  IS  RKG  STEP  SIZE 

600  DELTAL=4. 

61  OC - DELTAL  IS  PROFILE  SEGMENT  SPACING  IN  INCHES 

620  JSTOPrl 

650C - JSTOP  IS  THE  STOP  FLAG,  l=GO,  2=ST0P 

640  NSTOP=0 

650C----NST0P  IS  THE  STOPPING  VARIABLE 
660  TPRINT-0. 

670C----TPRI NT  IS  TTY  PRINTOUT  TIMEKEEPER 
680C********VEHICL£  CONSTANTS  R EAD -I N  ******** 

59  0  PRINT,  "THIS  IS  THE  GENERALIZED  TWO-DIMENSIONAL  VEHICLE  , 

7004  "  MODEL  PROGRAM” 

710  12  PRINT,  "NAME  OF  VEHICLE  V* 

720  READ  1  ,TNAME 

730  DO  51  1=1,4 

740  IF (TNAME-XTNAME (I  9)51,11,51 

750  51  CONTINUE 

760  PRINT3.XTNAME 

770  GOTO  12 

78  0  1  1  GO  TO  (61  ,62,63,64)1 

790  61  ASSIGN  81  TO  ISUB 

300  GOTO  65 

310  62  ASSIGN  82  TO  ISUB 

820  GOTO  65 

330  63  ASSIGN  83  TO  ISUB 

840  G0T065 

35  0  6  4  ASSIGN  84  TO  ISUB 

860  65  CALL  DATA  (I  ) 

870C********SELECTI ON  CF  OPTIONS******** 

380  D040I  =  1,6 

890  40  I  OPT  (I  )  =  I  YES 

900  50  PRINT,  “DO  YOU  WANT  THE  FOLLOWING  OPTIONS" 

910  PRINT /’ABSORBED  POWER*’/* 

920  CALLINPUT (IFPWR) 

930  PRINT, "A  DETAILED  OUTPUT  FILE"/* 

940  CALLINPUT (I FFILE) 

950  PRINT,  "PEAK  ACCELERATIONS”/* 

96  0  CALLINPUT  (IFPACC  ) 

970  PRINT  ,  "DRIVER  MOTIONS’’/* 

98C  CALLI  NPUT  (I  FDRV  ) 

990  PRINT, "RMS  OF  ALL  ACCELS"/* 

1000  CALLINPUT  (IFRMS  ) 

1010  PRINT  /’EXTERNAL  FILE  INPUT’’/* 

1020  CALL  INPUT(IFINPT) 

1030C ********PROGRAM  OPTION  SET -UP ******** 

1040  70  I  RMS  =  IDF 
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VDPROG  CONTINUED 


1050  IMINKX=IDF 

1060  IF  ( I  F  P  A  C  C  .EG  .NO  )  I M I  N  M  X  =  0 

10  70  I  F  ( I  FRMS  . EQ  .  NO  ) I  RMS  =  0 

1080C ********VEHICL£  RUN  VARIABLE  INPUT***** 

1090  PRINT  ,  "VEHICLE  VELOCITY  IN  MPH.’V* 

1100  READ  ,V£LMPH 

1110  PRINT,  "TTY  PRINTOUT  TIME  I  NTERVAL  "  * 

1120  READ, TIP 

11  30C  ********TIME  STEP  &  RKG  TIME  SET-UP******** 

1140  VEL I  PS  - VELMPH  * 1 7 . S 

1150  DELTA T  =DELTAL /VELIPS 

1160  NSTEPS  =  DELTAT/H 

1170  T£i*1P  =  N5TEPS 

1180  H  =  DELTAT/TEMP 

1190C  ********OUTPUT  SCALI MG******** 

1200  1  00  DO  151- 1  , 1 DF 

1210  15  ACCCS (I )  =  ACCISS (I  )/336. 

1220C - RESET  PITCH  ACCEL 

1230  ACCCS (2)=ACCISS (2) 

124  0  ABSPWR  =  - 1 00 . *P  WR VAR ( t ) /T 

1250  IFCIFDRV-NO )41 ,42,41 

1250  41  DISDRV-VAR (1 )+DRVLEN*VAR(2) 

1270  VEL DRV: VAR (I  DF+1 )+DRVLEN *VAR (IDF+2) 

128 OC ******* *RMS  CALCULATION******** 

1290  42  DO  1 61  =  1  ,IRMS 

1300  SUMRKS<I  )=SUMRMS(I  )+ACCGS(I  )**2 

1310  16  RMS  (I  )=SQRT  (SUMRMS  (I  )*DELTAT/T  ) 

1320  IFCIFDRV-NO)  13,  14,  13 

1330  13  SDVRMS  =SDVRM5  +ACC  DRV  **2 

1340  RMSDRVrSQRT  (SDVRMS  *DELTAT  /T  ) 

1350C********PEAK  ACCELERATION  CALCULATION******** 
136  0  14  DC  1  71=  1  , 1  MI  NMX 

1370  ACCMAX  (I  )=AMAX  1  CACCMAX  (I  )  .ACCCS  (I  )  ) 

1380  17  ACCMINCI  )  =  AMI  N  1  (ACCMI  N  (I  ),ACCGSCI  )) 

1390  IF  (IFDRV-N0  )35,36,35 

1400  35  DRVMAX  =  AMAX 1 ( DR VMAX , ACC DRV ) 

1410  DRVMI N  =  AMI N 1 (DRVMIN  .ACCDRV) 

1420C  ********PR0FI  LE  I NPUT  ******** 

1430  36  IF ( 1  FI  NPT -NO ) 25 , 26 , 25 

1440  25  CALLFILIN  (FID  ,JSTOP  ) 

1450  GOTO  27 

1460  26  CALLNCISIN (JSTOP  ) 

1470C  ********PROGRAM  OUTPUT  ******** 

1480  27  IFCIFFILE-NO)  18, 19,  18 

1490  13  CALLFILWRT  (FI  D  ,NPL) 

1500  19  IF(T-TPRINT  )21 ,22,22 

1510  22  CALLPRINT  (FID) 

1520  TPRINT  =  TPRI  NT+TIP 

1530C  *******  *iVj  A I  N  PROGRAM  ********** 

1540  21  I  F  (NSTCP-NY  )  23 , 24 , 23 
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1550  23  CALLSHIFT 

1560C----SHI FT  ADVANCES  THE  Y  PROFILE  ARRAY 

1570  IF  ( JSTOP  -  2)  28 , 29 , 28 

1580  29  NST0P=NST0P+1 

1590  28  PROFI  L  ( 1 )=YI N 

1600  I NDEX - -N5TEPS 

16 1  0  LDF =2*IDF 

1620  599  DO  199  J=  1  ,IDF 

1630  K=J+IDF 

1640  199  PY(J)  =  VAR(K) 

1650  DO  999  1  =  1  .NY 

1660  999  Y(I  )  =PASTP  (I  )  +  ( (I  NDEX  +NSTEPS+  1  )  *(PROFI  L  (I  )-PASTP  (I  )))/NSTEPS 

1670  DO  299  1=  1  ,4 

1680  GO  TO  ISUB, (81 ,82,83,84) 

169  0  81  CALL  M15KFK) 

1700  GOTO  299 

1710  82  CALL  M35(FK  ) 

1720  GOTO  299 

1730  83  CALL  M60(FK ) 

1740  GOTO  299 

1750  84  CALL  Ml  1  3 CFK  ) 

1760  299  CALLRUNGC (P  ,Q  ,VAR  ,FK  ,LDF,I  ) 

1770  DO  399  1  =  1  ,IDF 

1780  K  =  I  +1 DF 

1790  399  ACCISS  (I  )=(VAR  (K  )-PY  (I  )  )/H 

180  0  ACCDRVr (ACCISS ( 1 )+DRVLEN  *ACCISS (2) )/386. 

1810  IF  (IFPWR-  1HN  >699,799,699 

1820  699  DO  899  1  =  1  ,4 

1830  CALLPOWER  (PWRFK  ) 

1840  899  CALLRUNGE  (PP  ,GQ  ,PWRVAR  , PWRFK  ,9,1  ) 

1850  799  I  NDEX  =INDEX+1 

I860  I F (INDEX  >599,499,599 

1870  499  CONTINUE 

1880  T  =T  +DELTAT 

1890  GOTOIOO 

1900C ********FI NAL  OUTPUT  ******* 

1910  24  CALLPRI  NT  (FI  D  ) 

1920  IF  (IFPACC-NO  >31  ,32,31 

1930  31  CALLPEAKAC  (NPL > 

1940  32  PRINT2,  (IBELL  ,1  =  1  ,40) 

1950  CALL  COST 

1960  CALL  EXIT 

1970  1  FORMAT  (2A6) 

198  0  2  FORMAT  (40A1) 

1990  3  FORMAT  (  28HTHE  AVAI  LIABLE  VEHICLES  ARE  :X  ,3(A5  ,  1H  ,  >  ,X  ,  1H&.XA5) 

20  0  0  END 

2010  SUBROUTINESHIFT 

2020THI S  SUBROUTINE  ADVANCES  THE  PROFILE  UNDER  THE  VEHICLE 

20  3  0  I  =  NY  -  1 

20  4  0  1  PASTP  (I  )=PROFIL(I  ) 
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2050  PROFI  L  ( I  +1  )  =PR  OFI  L  (I  ) 

2060  1  =  1-1 

2070  I  F  ( I  )  1  ,2,1 

2030  2  RETURN 

209  0  END 

2100  SUBROUTINEFILIN<FID,JS> 

2110THIS  SUBROUTINE  OPENS  THE  INPUT  PROFILE  FILE,  READS  A 
2120NEW  INPUT  VALUE  [YIN]  ,  AND  CHECKS  FOR  END  OF  FILE. 

2130  DIMENSIONFI  DC  1  2) 

2140  DATAI  FIRST  /0/ 

215  0  IF(IFIRST)  1,2,1 

2160  2  PRINT,  "NAME  OF  INPUT  PROFILE  FILE 

2170  READ 5  ,FNAME 

2180  CALLCPENF  (  1  ,FNAME) 

2190  REA D  (  1  5  ) FI  D 

2200  I  FI RST  =  1 

2210  1  IF  ( JS- 2) 3 , 4 ,3 

22  2  0  3  READ  (  1  ,  )YIN 

223  0  CALLEOFTST (  1  ,JS  ) 

2240  4  RETURN 

225  0  5  FORMAT  (  12A  6) 

2260  END 

2270  SUBROUTINENOISIN (J  ) 

2280THIS  SUBROUTINE  SUPPLYS  THE  NEXT  INPUT  PROFILE  POINT 
229 OFROM  AN  INTERNALLY  GENERATED  RANDOM  NUMBER  (FROM 
2300GAUSS  AND  RANDU),  AND  SHAPES  THE  RANDOM  NOISE 
2310TO  A  SPECIFIED  PSD. 

2320  DATAI  FIRST  /0/ 

2330  IF  CJ— 2)  1 ,2,  1 

2340  1  IFdFIRST  >3,4,3 

2350  4  PRINT,  "TYPE  THE  FOLLOWING  NOISE  GENERATING  CONSTANTS: 
2360  PRINT  ,  "AA  ,SD  ,X-BAR  .FACTOR  ,ST-NUM  ,NPTS" 

23  7  0  READ  , AA  ,SD  ,XBAR  .FACT  ,IX  ,NPTS 

2380  X  =  0. 

23  9  0  I  FI  RST  =  1 

24  00C  ***GAUSS  &  RANDU 

24  1  0  3  V=0. 

2420  1  =  0. 

24  3  0  1  0  IX  =  IX*4099 

24  4  0  IF(IX)30,40,40 

24  5  0  3  0  IX:IX +8 388607+1 

2460  40  A: IX 

24  7  0  V:V+ A/(2.**23) 

24  8  0  1  =  1+1 

24  9  0  IF  (I  -12)  10, 20, 10 

2500  20  V=(V-6.)*SD 

25  1  OC  ***NOI  SE  GENERATION 

2520  V  =  V-X  BAR 

2530  IF(NPTS)5,5,6 

2540  6  V:  0. 
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25  5  0  NPTSr-NPTS 

25  6  0  5  X:X*AA+V 

25  7  0  YIN=X*FACT 

2580  IFCNPTS  )7,8, 7 

2590  8  J=  2 

2600  RETURN 

261  0  7  NPTS  =  NPTS  +  1 

26  2  0  2  RETURN 

26  3  0  END 

2640  SUBROUTINEPRINT (FID) 

2650THIS  SUBROUTINE  HANDLES  THE  PROGRAM  PRINTOUT  IN  THE 
2660TELETYPE. 

26  7  0  DIMENSI  ONFI  D  (  1  2)  .HEAD  (  4 )  ,VI  D  (3 ) 

26  8  0  DIMENSIONVOUT  (4) 

26  9  0  DA TAVI D/1 5H ABSORBED  POWER:/ 

2700  DATAHEAD/24HDI SPL  VELOC  ACCEL  RMSACC/ 

2710  DATAIFIRST/0/,NO/1HN/ 

27  2  0  25  IF(IFIRST)2,1 ,2 

2730  1  PRINT  1 1  ,VELMPH  ,VELI PS  ,DELTAL  ,DELTAT ,N STEPS  ,H 

2740  PRINT  12,  VEHQID,  FID 

275  0  2  K  :  4 

2760  IF(IFRMS-N0)9  ,  10,9 

2770  10  K  :  3 

278  0  9  IFCIFIRST >20,21 ,20 

2790  21  PRINT  13, (HEADCI  )fI=  1  ,K  ) 

23  0  0  20  I  FI  RST  :  1 

2810  I  F  (I  FP  WR  -  NO  )  3 , 4 , 3 

28  2  0  3  PRINT  14,  T,  PROFIL(l),  VID,  ABSPWR 

2S50  GOTG5 

2840  4  PRINT  14,  T  ,  PROFILC  1  ) 

2850  5  CALLVARFIX ( 1 ,VOUT ) 

23  6  0  PRINT15,(VCUT(I  ),I  =  1  ,K  ) 

28  7  0  CALLVARFIX  (2,V0UT  ) 

23  3  0  PRINT  16,(VCUT  (I  )  ,1:  1  ,K  ) 

28  9  0  D022L:1  .NAXLES 

29  0  0  N  :  2+L 

2910  CALLVARFIX  CN  ,VOUT  ) 

29  20  22  PRINT17,L,(VOUT(I  ),I  =  1  ,K  ) 

2930  IFUFHORZ  >23,24,23 

2940  23  N : N  + 1 

2950  CALLVARFIX  (N  ,VOUT  ) 

29  6  0  PRINT18,(V0UT(I  ),I  =  1  ,K  ) 

29  7  0  2  4  IF  (IFDRV-N0)7,8,7 

29  8  0  7  PRINT19, (DRIVER  (1  ), I:  1  ,K  ) 

29  9  0  8  PRINT, 

3000  RETURN 

3010  11  FORMAT  (  ///"VELOCITY  =  "F5 . 2,  ”  MPH  (  *F6 .  1  ,  "  IPS)*/ 

3020&  "DELTA-L:"F5.3,3X , "DELTA-T = "F6. 4/ 

3030&  "NSTEPS:  "i  4 , 4X  ,  “H:"F7.6) 

3040  12  FORMAT  (  12HVEHICLE  IS:  2A6/17HINPUT  PROFILE  IS:/12A6) 


C-258 


VDPROG  CONTINUED 


3050  13  FORMAT  (//,SX  ,4(4X  ,  AS) ) 

3060  14  FORMAT  ( / ,  5HTIME=F  6. 3  ,X  ,  SHI  NPUT  =F  7. 3  ,X  ,  2AS  ,A3  ,F  7. 3  ) 

3070  15  FORMAT ( / , 3HC -  G3X  ,  4F  1  0 . 5  ) 

3080  16  FORMAT (5HPITCHX ,  4F 1 0 . 5  ) 

3090  17  FORMAT  (4HAXLEI  1  ,X  ,  4F  1  0. 5  ) 

3100  18  FORMAT ( 5HHORIZX ,  4F 1 0. 5  ) 

3110  19  FORMAT (5HDRVERX , 4F 1 0. 5  ) 

3120  END 

3130  SUBROUTINEVARFIX (I ,VOUT) 

3140THIS  SUBROUTINE  IS  CALLED  BY  PRINT  TO  SELECT  THE 
31  50VARIABLES  TO  BE  PRINTED. 

3160  DIMENSIONVOUT (4) 

3170  VOUT(l)=VAR(I  ) 

3180  N  =  I+IDF 

3190  VOUT  (  2) =VAR  (N  ) 

3200  V0UT(3)  =  ACCGS  (I  ) 

3210  VOUT(4)=RMS  (I  ) 

3220  RETURN 

3230  END 

3240  SUBROUTINEFILWRT(FID,NPL) 

3250THIS  SUBROUTINE  HANDLES  THE  OUTPUT  TO  AN  EXTERNAL  FILE 
3260THAT  IS  WRITTEN  WITH  120  CHARACTER  LINES,  AND  CAN  BE 

3270LISTED  ON  THE  HIGH-SPEED  PRINTER. 

3280  DIMENSI  ONHEAD  1  (6)  ,HEAD2(2) 

3290  DIMENSIONVOUT ( 10) ,FID(12) 

3300  DATAIFIRST/0/.NPL/15/ 

3310  DATAHEAD 1 /35HAXLE 1  AXLE  2  AXLE3  AXLE  4  AXLE  5  AXLE6/ 

3320  DATAHEAD2/1  1HH  ,C-G  V  ,DRV/ 

3330  IF  CIFIRST  )  1  ,2,1 

3340  2  PRINT, "NAME  OF  OUTPUT  FILE","* 

3350  READ  1  1  ,FN 

3360  1  1  FORMAT  (A6) 

3370  WRI TE ( 2;  IS) 

3380  CALLCLOSEF ( 2,FN , 7 ) 

3390  CALLOPENF ( 2,FN ,7) 

3400  WRI  TE(2;12)VEHQID 

3410  12  F0RMAT(41X,37(1H*),/,41X,1H*,35X,1H*,/,41X,1H*,2X, 

3420&  2A6 , 1 9HPROGRAM  OUTPUT  FILE2X  ,  1H*  ,/  , 

3430&  41X  ,1H*,35X  ,  1H  *  ,  / ,  4 IX  ,37(1H*)//) 

3440  IFCIFINPT-1HN )3,4,3 

3450  3  WRI  TE  (  2;  1 3  )FI  D  ,FNAME 

3460  G0T05 

3470  4  WRI  TE  (2;  14) FI  D 

3480  13  FORMAT  (  1  7HI  NPUT  PROFILE  I S  :X  ,  1  2A6 , 1  OX  ,  1  2H  [  FILE  NAME  ,A6, 
3490&  X  ,  1H  ]  / ) 

3500  14  FORMAT  (  1  7HI  NPUT  PROFILE  IS:X,12A6,/) 

3510  5  WRI TE ( 2; 1 5 ) VELMPH ,VELI PS ,DELTAL , DELTA T ,NSTEPS ,H 
3520  15  FORMAT  (/ ,9HVEL0CI  TY  =FS.  2,X  ,  1  7HMI LES  PER  HOUR  (, 

35  3  0&  F6 . 1  ,X  ,  1 8HI  NCHES  PER  SECOND  )  7X  ,8HDELTA-L  =  F5 . 3  ,X  ,  6HI  NCHES  , 

35  40&  9X  ,8HDELTA-T=F  1  0. 8, X,7H SECONDS,//, 
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3550& 

35HNUMBER  OF  STEPS  IN  RKG  I NTEGRATION^I 4 ,26X , 

3560& 

12HSTEP  SIZE  H=F12.10//) 

3570 

IFIRST=1 

3580 

KK  =  2 

3590 

IF(IFDRV-1HN)10,20,10 

36  0  0 

20 

HEAD  2( 2)  =  0 

3610 

KKrKK-1 

36  2  0 

10 

IFCIFHORZ )21 ,22,21 

3630 

22 

HEAD  2( 1)=HEAD2(2) 

36  4  0 

KK-KK-1 

3650 

GOTO  21 

36  6  0 

1 

I F (NPL-50 ) 6 , 7 , 7 

36  7  0 

7 

IF(NPL-54)8,9,9 

368  0 

8 

WRITEC2; 16) 

369  0 

NPL=NPL+1 

3700 

GOTO  7 

3710 

9 

NPL  =  0 

3720 

16 

FORMAT (1H  ) 

3730 

21 

WRITE  (2;  17)  (HEAD  1  (I  )  ,1  =  1  ,NAXLES  ) ,  (HEAD2CI  )  ,1=  1  ,KK  ) 

3740 

17 

FORMAT  (  2X  ,  4HTIME3X  ,  4HY  ( 1 )  1  4X  ,  5HV  ,C-G  ,  4X  ,  5HPI TCH  ,  4X  ,8(A6,3X)) 

375  0 

WRITEC2; 16) 

3760 

NPL  =  NPL+2 

3770 

6 

DO  231= 1 , 1 DF 

3780 

23 

VOUT  (I  )=V AR  (I  ) 

379  0 

J  =  I  DF 

38  0  0 

IF (IFDRV- 1HN ) 24 , 25 , 24 

3810 

24 

J  =  J  +  1 

3620 

VOUT (J  )=DISDRV 

38  3  0 

25 

WRITE(2; 18)  T,  PROFIL(l),  (VOUT (I  ) , I  =  1  , J ) 

38  4  0 

18 

FORMAT  (/,X,F7.4,F6.2,2X  ,  6HDI SPL  .  2X  ,  1  0F9 . 4 ) 

36  5  0 

DO  261= 1 , 1 DF 

38  6  0 

K  =  I  +1  DF 

38  7  0 

26 

VOUT (I )  =  VAR  (K  ) 

3880 

IF(IFDRV-1HN)27,28,27 

38  9  0 

27 

VOUT ( J  )  =  VELDR V 

39  0  0 

28 

WRI  TE  (  2;  1 9  )  (VOUT  (I  )  ,  I  =  1  ,J) 

3910 

19 

FORMAT ( 1SX  ,8HVEL0CITY 10F9.4) 

39  20 

DO  291=  1  ,1  DF 

3930 

29 

VOUT  (I  )  =  ACCGS  (I  ) 

3940 

I F ( I FDRV- 1HN ) 3 1 ,32,31 

39  5  0 

31 

VOUT ( J  )  =  ACCDRV 

3960 

32 

IF (IFPWR- 1HN )33,34,33 

39  70 

34 

WRITE(2;30)(V0UT  (I  )  ,1  =  1  ,J) 

3930 

G0T035 

3990 

33 

WRITE  (2;36)ABSPWR  ,(VOUT(I  )  , I  =  1  ,J) 

4000 

35 

NPL=NPL+4 

4010 

30 

FORMAT (  16X,6HACCEL.2X, 10F9.4) 

40  20 

36 

FORMAT (6HP0WER =F 6.2, 4X ,6HACCEL.2X , 10F9.4) 

4030 

IF(IFRMS-1HN)37,38,37 

4040 

37 

D039I  =  1  , 1  DF 
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405  0  39 
4060 

40  70  41 
4080  42 
4090  40 
4100 

41  10  33 
4120 
4130 

41  40THIS 

4150 

4160 

41  70 

4180 

4190 

4200 

421  0 

4220 

4230 

424  0 

425  0  10 
4260 
4270 
4230 

4290THI S 
4300 
4310  2 
4320 
4330 
4340 
435  0 
4350 
4370 
433  0 
439  0 
4400 
4410 
44  20 
4430  3 
4440 

445  0 

446  OTH I  S 

44  70 
443  0  19 
4490 

45  00 
451  0 
45  20 
4530  15 
4540 


VOUTCI  )=RMS  (I  ) 

IFCIFDRV- 1HN  >41 ,42,41 

VOUT ( J  )=RMSDRV 

WRI TE (2; 40)  (VCUT  (I  )  ,1  =  1  ,J) 

FORMAT ( 1 6X ,8HRMS .ACC . 1 0F9 . 4) 

NPL  =  NPL  +  1 

RETURN 

END 

SUBROUT I NER UN GE (P  ,Q,X  ,FK  ,M  ,N  ) 

SUBROUTINE  IS  THE  RUN GE-KUTTA- GI LL  ALGORITHM. 

DIMENSI ONP (  1  )  ,9  (  1  )  ,X ( 1  )  ,FK ( 1 ) ,A(4) ,BC4)  ,C(4) 

DATAA/. 5, .2928932188, 1 . 707 l 0678 1 , . 1666666667/ 

DATAB/2. , 1 . , 1 . ,2. ,/ 

DAT AC/. 5, .2928932188, 1 . 70 7 1 06 78 1 , . 5 / 

TAr ACN  ) 

TB  =  3(N  ) 

TC  =  C  CN ) 

DO  1  01  =  1  ,M 

P  (I  )=TA*(FK  (I  )-TB*Q  (I  ) ) 

X  (I  ) -X  (I  )+P  (I  ) 

Q  ( I  )  =  Q  ( I  )+3.*P(I  ) -TC  *FK  (I  ) 

RETURN 

END 

SUBRCUTI NEPCWER  (FK  ) 

SUBROUTINE  IS  THE  ABSORBED  POWER  EQUATIONS. 

DIMENSI ONFK  (9) 

U2=-67. 743*ACCDRV- 1 • 042*P WRVAR (8 ) 

U 1  =  -U2-3.246*P  WRVAR (6) 

U0  =  -U 1  +  1 .318*PWRVAR  C4) 

FK (1 )=H*(.00873*P WRVAR <2)*PWRVAR <3 ) ) 

FK (2)=M*(-49 . 9484+ACCDRV ) 

FK (3)=H*(- 1 C 0. *U 0-59. *P WRVAR (3)  ) 

FK (4)=H*(-10.*U 1+71 .6*PWRVAR(5)-53. 49*PWRVAR  ( 4)  ) 

FK  (5  )=H*<-  100.*U1-47.73*U0) 

FK  (6)=H*(-1 0.*U 2-  78 . 5  9  *P  W R  V  A  R  (  7 )  -  5  5 . 28  *P  W R  V  A  R  (  6 ) ) 

FK  ( 7 )  =H  *(  -  1  0.  *11  2-6. 259 *U  1  ) 

FK (8)=H*(-677.43*ACCDRV-3S8.8*PWRVARC9)-46.67*PWRVAR (3) ) 
FK  C9)=H*C-67. 743*ACCDRV-2.742*U2) 

RETURN 

END 

SUBROUT I NEPEAK AC  (NPL  ) 

SUBROUTINE  WRITES  THE  PEAK  ACCELERATION  VALUES 
N  =  66 

WRITE  (N  ;  )  "PEAK  ACCELERATION  VALUES*’ 

WRITE (N;>“  MAXIMUM  MINIMUM" 

WRITE (N  ;6) (ACCMAX (I  ),ACCMIN(I 9,1=1 ,2) 

DO  1 51- 1 ,NAXLES 
J=  I  +2 

WRITECN  ;  7)1  , ACCMAX  (J  )  ,ACCMIN(J) 

IF ( I FHORZ ) 1 1 , 12, 1  1 
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455  0  1  1 
4560  12 
4570  13 
4580  14 
4590  4 
4600  16 
4610  17 
46  2  0 
4630 
46  4  0  1  8 
46  5  0 
46  6  0  2 
46  7  0  5 
4680  6 
46  9  0  7 
470  0  8 
4710  9 
4720 
4730 
4740  10 
475  0 
4760 
4770 
4780  1 
479  0 
43  0  0 
4810 
4820 
4830 
48  4  0 
4850 
48  6  0& 

48  7  0 
488  0 

48  9  0& 

490  OA 

491  OA 

49  20 
4930A 
4940A 
49  5  0A 
4960 
4970A 
49  8  0 
49  9  0  A 
5000 
5010 
5020 
5030 
5040 


WRITE (N  ;8)ACCMAX  (IDF)  ,ACCMIN(IDF) 

IF(IFDRV-IHN) 13, 14, 13 
WRITECN  ;9)DRVMAX ,DRVMIN 
IF(N-2)4,2,4 
I F (I FFI LE- 1HN ) 16,2, 16 
IF(NPL-54) 17, 18, 18 
WRITE(2;5) 

NPL  =  NPL  + 1 
GOTO  1  6 
Nr2 

GOTO  19 
RETURN 
FORMAT (1H  ) 

FORMAT (6HC-GACC 2F9. 4, /,6HPITCH  2F9.4) 

FORMAT  (4HAXLEI  1  ,X  ,2F9.4) 

FORMAT (6HH0RIZ  2F9.4) 

FORMAT  (6HDRIVER2F9. 4) 

END 

SUBROUTINEINPUT (INP ) 

READ  1  ,1  NP 

IFCINP  .EQ  .  1 H Y  .OR  .INP  ,EQ  .  1HN)RETURN 
PRINT,  "TYPE  YES  OR  NO",** 

GOTO  10 
FORMAT (A  1 ) 

END 

SUBROUTINE  DATA  (N) 

DIMENSION  DVEHCL (2,4) ,DTHRSH(9,4) ,DGAMMA (9 , 4 ) ,DSLGMA  (9 , 4) 
DIMENSION  DMASS (6,4)  ,DVAR (9,4), DLEN (10,4) 

DIMENSION  DFMASS (4) ,DINRTA (4 ) ,DDRVLN (4) 

INTEGER  DSETUP (5,4) 

DATA  DVEHCL  / 1  OHM  -151  JEEP.11HM-35  TRUCK  ,  1  OHM  >60  TANK, 


1  OHM  -  1  13  TANK/ 

DATA  DSETUP /34, 4, 2, 7, 0,53, 5, 3, 9, 0,5 0,9, 6, 5,1  ,36,8,5,5,  1/ 
DATA  DTHRSH/6. ,2. 7, .8,0. ,.8 ,2.7,6. ,2*0, 

7. 5. 4. 5. 2.1. . 6.0. ..6. 2. 1.4. 5. 7. 5, 

3.5.1.. 0..1..3.5.4*0., 

\  O  Q  f)  Q  X  O  /jkf)  / 

DATA  *D GAMMA  /420.  ’,565!  ,655.  ,685.  ,655.  ,565.  ,420.  ,2*0.  , 

581 . . 716. .8  17. ,878. ,9  00. ,8 78 . ,8 1 7.  ,  7 1 6 .  , 58 1 .  , 

3885. . 4715. .5000. .4715. .3885. .4*0.  , 

1500. . 2000. .3500. .2000. . 1500. .4*0./ 

DATA  DSI  GMA /9*0 . ,9*0 . , 3 1 45 . ,  1 6 70 . , 0. , -  1 670. ,-3 1 45 . , 4*0 .  , 


1500. . 700. .0. ,-700. ,- 1500. ,4*0./ 

DATA  DLEN /44. 3 ,40.7,8*0. , 1 1 3 . ,39 . , 24. , 24. , 6*0 . , 

77. . 44. . 1 1 . ,-22. ,-55. ,-88. ,4*0. ,52. ,24. ,0. ,-28. , 

DATA  DMASS/. 27,. 27, 4*0. , 1 . 19 1 , 2. 08 , 2. 05 ,3*0. ,6*0 


-65. ,5*0./ 

. ,6*0./ 


DATA  DFMASS/2.58 , 18.8 ,0. ,0./ 


DATA  DINRTA/3282. ,90876. ,0. ,0./ 


DATA  DDRVLN/O. ,0. ,25. ,25./ 

DATA  DVAR/-1 . 17069,. 00076, -.8 1339, -.8 4536, 5*0. , 
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505  0&  -2. 627,. 006, -1.038, -1.55 2,-1. 658, 4*0. , 

5060&  -5. 79 ,-.0089 ,-.966, -.97 ,-.942, -.9 13, -.884, -.856,0. , 

5070&  -3.75 ,-.008 7 ,-.76, -.78 ,-.76, -.73, -.68, 2*0./ 

5080  DO  10  1  =  1,2 

5090  10  VEHQIDG  )=DVEHCL(I  ,N) 

5100  DO  20  1  =  1,5 

51  1  0  20  SETUP  (I  )=DSETUP  (I  ,N) 

51  20  DO  30  I  =  1  ,NSEGS 

5130  THRESH  (I  )=DTHRSH  (I  ,N) 

5140  SIGMA  (I  )=DSIGMA  (I  ,N) 

5150  30  GAMMA  (I  )=DGAMMA  (I  ,N  ) 

5160  DO  40  1  =  1  ,IDF 

5170  LEN  (I  )=DLEN  (I  ,N  ) 

5180  40  VAR  (I  )  =DVAR  (I  ,N  ) 

5190  DO  50  1  =  1  ,NAXLES 

5200  50  MASS  (I  )  =  DMASS  (I  ,N  ) 

5210  FMASS  =DFMASS  (N  ) 

5220  I NRTI A  =  DI NRTA  (N  ) 

5230  DRVLEN  =  DDR VLN  (N  ) 

5240  RETURN 

525  0  END 

5260  SUBROUTINE  M151  (FK ) 

5270  DIMENSION  TEMP (2) ,FK (8) 

5280C*****ALGEBRAIC  UPDATE  OF  VARIABLES 

529 0C- -SEGMENT ED  WHEEL  INPUT 

5300  DO  1  01  =  1 , 2 

5310  FORCW (I  )  =  0 

5320  DO  1  QJ  =  1  ,  7 

5330  K=  (I  -  1  )*27+J 

5340  11  =  1+2 

5350  TEMP 1=Y CK  )-VAR  (II )-THRESH (J) 

5360  I F (TEMP  1  )20,30,30 

5370  20  TEMP  1  =  0 

5380  30  FORCW (I ) =FORCW (I )  +  GAMMA ( J )*TEMP  1 
5390C--FORCW  IS  THE  RESULTING  WHEEL  FORCE 
5400  10  CONTINUE 
5410  TEMP 1=SIN(VAR (2)) 

5420  SPDEF ( 1 )  =  VAR (3)-VAR ( 1 ) -LEN ( 1 >*TEMP  1 

5430  SPDEF ( 2) =VAR (4) -VAR ( 1 )+LEN ( 2)*TEMP 1 

5440C--SPDEF  IS  THE  SUSPENSION  SPRING  DEFLECTION 
5450  TEMP 1=VAR (6)*C0S (VAR (2) ) 

5460  DSPDF ( 1 )=VAR (7)-VAR (5) -LEN ( 1 )*TEMP 1 

5470  DSPDF(2)=VAR(8)-VAR(5)+LEN(2)*TEMP  1 

5480C--DSPDF  IS  THE  SUSPENSION  SPRING  DEFLECTION  VELOCITY 
5490C*****COMPUTATION  OF  FRONT  SUSPENSION  FORCE  [FORCK(l)3 
5565  FORCK (1 )=15Q0.*SPDEF( 1 ) 

5675  FORCK (2)=  1  500.*SPDEF ( 2) 

568  0C  *****COMPUTATI  ON  OF  FRONT  SUSPENSION  DAMPING  [DAMP (1)3 
5685  DAMP ( 1 )=42.*DSPDF( 1 ) 

5795  DAMP ( 2) = 42. *DSPDF (2) 
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591  OC*****DIFFERENTIAL  EQUATIONS 
5920C  FK  (  1  &5  )--VERT  C-G  MOTION 
5930C  FK (2&6)--PITCH  MOTION 
5940C  FK  (3&7)--AXLE  1  MOTION 
595  OC  FK ( 4&8 ) --AXLE  2  MOTION 
5960  DO  11  1  =  1,4 

5970  1  1  FK  (I  )=H*VAR  (I  +4 ) 

5980  STEMP  =  0  . 

599  0  DO  21  1  =  1,2 

6000  TEMP  (I  )=FORCK  (I  )+DAMP  (I  ) 

6010  STEfiP  =STEMP+TEMP  (I  ) 

6020  21  FK  (I+6)=H*(F0RCW(I  )-TEMP(I  )-MASS(I  )*386.  )/MASS(I  ) 
6030  FK  ( 5 )  =  H*  (STEMP -F!i ASS  *386 . )  /FMASS 

60  40  FK  (6)=H*(LEN  (  1  )*TEMP  (  1  )-LEN  (2)*TEMP(2)  )/INRTIA 

6050  RETURN 

6060  END 

6070  SUBROUTINE  M35CFK ) 

6080  DIMENSION  TEMP (3 )  ,FK ( 1 0 ) 

609QC******ALGEBRAIC  UPDATE  OF  VARIABLES 
6100  FORCW(  1  )  =  0. 

61  1 OC -- FRONT  AXLE  RESULTING  FORCE  [FORCW(l)] 

6120  009001=  1,9 

6130  TEMP  0  =  Y  (I  ) -VAR (3) -THRESH (I  ) 

6140  I  F  (TEMP  0)910,900,900 

615  0  910  TEMP  0  =  0. 

6160  900  FORCW  ( 1  )=FORCW  (  1  )  +  GAMMA  (I  )*TEMPO 
6170  FORCW  (  2)  =  0 . 

61  80C--SECOND  AXLE  RESULTING  FORCE  [ FORCW ( 2) ] 

6190  DO  9201  -  1  ,9 

6200  TEMP  0  =  Y Cl +32)-VAR (4 )-THRESH (I ) 

6210  I F (TEMP  0)930,9 20, 9 20 

6220  930  T EM P  0  =  0 . 

6230  920  FORCW(  2)=F0RCW(  2)  +  GAMMA  (I  )*TEMP0 
6240  FORCW ( 3 )  =  0 . 

625  OC--REAR  AXLE  RESULTING  FORCE  [  FORCW  (3  )] 

6260  009401=1,9 

6270  TEMP  0=Y (I +44) -VAR (5 ) -THRESH (I ) 

6280  I  F (TEMP  0)950,940,940 

6290  950  TEMP  0  =  0. 

6300  940  F0RCW(3)=FCRCW(3)+GAMMA (I )*TEMPO 
63  1C  U  =  (VAR (4)- VAR (5) )/48. 

63  2  0  BETA  =  ATAN  (U  ) 

6330  DBETA= (VAR (9)-VAR ( 1 0) ) /( 48. *( 1 .+U  *U ) ) 

6340  TEMP  1=SIN(VAR  (2)  ) 

6350  TEMP2  =  SIN (BETA  ) 

6360  TEMP3=C0S  (VAR  (2) ) 

6370  TEMP4=C0S  (BETA  ) 

6380C--SUSPENSI ON  SPRING  DEFLECTION  [ SPDEF] 

63  9  0  SPDEF ( 1 )=VAR (3)-VAR ( 1 )-LEN ( 1 )*TEMP  t 

6400  SPDEF (2) =VAR (4)-VAR(l )+LEN ( 2) *TEMP 1-LEN (3 )*T£MP  2 
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6410  SPDEF(3)=VAR (5)-VAR (1 )+LEN (2) ♦TEMP 1+LEN ( 4)*TEMP 2 

6420C--SUSPENSI ON  SPRING  RATE  OF  DEFLECTION  [ DSPDF] 

6430  DSPDF ( 1 )=VAR (8 ) -VAR ( 6 ) -LEN ( 1 )*VAR ( 7)*TEMP 3 

6440  DSPDF(2)=VAR  (9) -VAR  ( 6  )+LEN  (  2) *VAR  (  7 ) *TEMP  3-LEN  ( 3  )*DB£TA +TEMP  4 

645  0  DSPDF(3)=VAR (1 0)-VAR  (6  )+LEN  (  2)*VAR  (  7)*TEMP  3+LEN  (  4)*DB£TA*TEMP  4 

6460C--FR0NT  SUSPENSION  SPRING  FORCE  [FORCK(l)] 

I F (SPDEF ( 1 >+4.4)420,425,425 
FORCK (  1  )= 1  1771. 43*SP  DEF ( 1 >  +  66714.3 
GOTO  460 

I F (SPDEF ( 1 >+3.65)430,435,435 
FORCK ( 1 )= 3333. 33*SP DEF ( 1 >+7986.65 
GOTO  460 

IF (SPDEF (  1  >-3.65)440,445,445 
FORCK ( 1  )=  1 1 45 . 2*SP  DEF ( 1 ) 

GOTO  460 

IF (SPDEF (  1  >-4.4)45  0,455,455 
FORCK ( 1 )= 3333. 33*SP DEF ( 1 >-7986.65 
GOTO  460 

FORCK (  1  )  -  1  1771. 43+SPDEF ( 1 >-66714.3 
CONTINUE 

^R  AXLES  SUSPENSION  SPRING  FORCES  [ FORCK ( 2&3 ) ] 

DO  5  1 01  =  2, 3 

IF (SPDEF (I >+5.7)470,475,475 
FORCK  (I  >=46000. *SPDEF(I  >  +  243800. 

G0T05  10 

I F (SPDEF (I >+5.1)480,485,485 
FORCK (I )= 9333. 33+SP DEF (I >+34800. 

G0T05  1  0 

I F (SPDEF (I  )-5. 1 >49  0,49  5,495 
FORCK  (I  )  =  25 09 .8+SPDEF  (I  ) 

GOTO510 

IF (SPDEF (I >-5.7)500,505 ,505 
FORCK (I )=9333.33*SPDEF(I >-34800. 

G0T05  10 

FORCK (I >=46000. *SPDEF(I >-243800. 

CONTINUE 

6770C--FR0NT  SUSPENSION  DAMPING  l DAMP  Cl)] 

6780  IF(DSPDF( 1 >+.6)520,525,525 

S790  520  DAMP ( 1 )=70.*DSPDF( 1 >-800. 

6800  GOT0540 

6810  525  IF(DSPDF( 1 >-.6)530,535,535 
68  2  0  5  3  0  DAMP  (  1  )=  1  402. *DSPDF(  1  ) 

©30  GOTO540 

6840  535  DAMP ( 1 )=40.*DSPDF( 1 >+820. 

©50  540  CONTINUE 

©60C--REAR  SUSPENSION  SPRINGS  DAMPING  [DAMP(2&3>] 

©70  D05  701  =  2 , 3 

©80  IF(DSPDF(I  >  +  .6)550,555,555 

90  550  DAMP (I >=-950. 

■900  GOTO570 


6470 

648  0 

420 

649  0 

65  00 

425 

6510 

430 

65  20 

6530 

435 

65  40 

440 

6550 

6560 

445 

65  70 

450 

65  8  0 

65  9  0 

455 

66  0  0 

460 

661  OC 

--Ri 

6620 

|S630 

R>64  0 

470 

665  0 

6660 

4  75 

66  70 

480 

668  0 

669  0 

485 

670  0 

490 

6710 

6720 

495 

6730 

500 

6740 

675  0 

505 

6760 

510 

OO 

% 
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6910  555  IF(DSPDF(I )-. 6)560, 565, 565 
69  2  0  5  6  0  DAMP  (I  )= l 583. *DSPDF d  ) 

6930  GOTO570 

69  4  0  5  6  5  DAMP  (I  )=950. 

69  5  0  5  7  0  CONTINUE 

S960C******DIFF£RENTIAL  EQUATIONS 

69  7  0C  FK  ( 1  &6 )--VERT  C-G  MOTION 

69S0C  FK  (2&7)--PI TCH  MOTION 
6990C  FK(3&8)--AXLE1  MOTION 

70  0  0C . 

7010C  FK  (5&10)-AXLE3  MOTION 
70  2  0  DO  1 1  =  1  ,  5 

7030  1  FK  Cl  )=H*VAR  (1+5) 

70  4  0  STEMP=0. 

70  5  0  DO  21  -  1  f  3 

7060  TEMP  (I  )=FORCK  (I  )+DAMP  (I  ) 

7070  STEMP=STEMP+TEMP(I  ) 

70  8  0  2  FK  (I  +7)=H*(FORCWd  ) -TEMP  (I  J-MASS  (I  )*386.  )/MASS  (I  ) 

70  9  0  FK  <6)=H*(STEMP-FMASS*386.)/FMASS 

7100  FK  (7)=H*(LEN(  1  )*TEMP(1  )-LEN ( 2) *TEMP ( 2) ) /I NRT I A 

7110  RETURN 

7120  END 

7130  SUBROUTINE  M60CFK  ) 

7140  DIMENSION  TH  ( 4 )  , IY  ( 6  )  ,FK  ( 1  8  ) 

7150C******ALGEBRAIC  UPDATE  OF  VARIABLES 


7160  DATAIY/4, 12,20,29,37,45/ 

7170  DATATH/12.  ,  10.  ,8.  ,6./ 

7180  HORMOM  =  0 . 

7190C--C0MPUTATI ON  OF  VERTICLE  tFORCW]  AND  HORIZONTAL  [FORCH]  FORCES 
7200C  RESULTING  FROM  THE  PROFILE  INPUT  t  Y  ]  TO  THE  SEGMENTED  BOGIES. 


7210 

002001  =  1 ,6 

72  20 

FORCH  (I  )  =  0 . 

723  0 

FORCW (I )  =  0 . 

724  0 

DO 100J= 1 ,5 

725  0 

K  =  I  +2 

72  6  0 

L  =  IY  (I  )+J 

7270 

TEMP  =Y (L )-VAR  (K  )-THRESH(J) 

728  0 

IF (TEMP ) 10,20,2 0 

7290 

10 

TEMP=0. 

73  0  0 

20 

FORCW (I  )  =FORC W ( I  )+TEMP *GAMMA (J) 

7310 

100 

FORCH  (I  )=FORCH  (I  )+TEMP*SIGMA  (J) 

73  2  0C--SUSPENSI  ON  SPRING  DEFLECTION  tSPDEF) 

7330  SPDEFCI  )=VAR  ( 1  )+LEN  (I  )  *VAR  (  2) -VAR  (K  ) 

7340C--MOMENT  ABOUT  THE  C-G  RESULTING  FROM  THE  HORIZONTAL  FORCES  [HORMOM] 


7350  HORMOM  =HORMOM  +FORCH (I )*(46.+SPDEF (I ) ) 

7360  KK  =  I  +  11 

7370C--VEL0CITY  OF  THE  SUSPENSION  [ DSPDF ]  SPRING  DEFLECTION 
738  0  2  0  0  DSPDF (I  )=VAR ( 10)+L£N (I )*VAR ( 1 1  ) -  VAR CKK ) 

7390  VARFEL  =  0. 

7400C--COHPUTATI ON  OF  FORCES  FROM  THE  "FEELER" 
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7410  D030I  =  1,4 

7420  TEMP=Y<I  )-TH  (I  ) 

7430  I  F  (TEMP  >30,30,40 

7440  40  VARFEL=AMAX  1  (VARFEL  ,TEMP  ) 

7450  30  CONTINUE 

746  0C --SUSPENSION  [FORCK]  SPRING  FORCE  COMPUTATION 
7470  DO  7001  =  1 , 6 

7480  IFCSPDEFCI  )  -  .  402)  7  1  0 , 7  1  0 , 720 

7490  720  SPDEF  (I  )=.402 

7500  DSPDF  (I  )  =  0 . 

75  1  0  7  1  0  IF(SPDEF(I )+12. 5730,740,740 
7520  730  FORCK  (I  )=29998.*SPDEF  (I  >+339972. 

7530  GOTO  700 

75  4  0  7  4  0  FORCK  (I  )=  1667. *SPDEF(I  ) 

75  5  0  7  0  0  CONTINUE 

756  0C--SUSPENSI  ON  SPRING  DAMPING  [DAMP] 

7570  008001  =  1,6 

7580  I  F  (ABS  (DSPDF  (I  ))- 1  .  )8l  0 ,820,820 

7590  81  0  DAMP  (I  )  =  2750. *DSPDF <1  ) 

76  0  0  GOT0800 

76  1  0  8  2  0  DAMP  (I  )=SI  GN  (2750.  ,DSPDF(I  )  ) 

76  2  0  8  0  0  CONTINUE 

76  3 OC -  -TRACK  INTERCONNECTION  FORCES  [FORCT] 

7640  TEMP: VAR  (3) -VARFEL 

76  5  0  IF  (TEMP  )  5  0,5  0,60 

76  6  0  5  0  FORCT  (  1  )  =  300.*TEMP 

7670  GOTO  70 

7680  60  FORCT(1)=0. 

7690  70  D080I  =  2, 6 

7700  J  =  I+1 

7710  K  =  J  +  1 

7720  80  FORCT (I  5  =  375. *(VAR(K)-VAR(J5) 

7730C*****DIFFERENTI  AL  EQUATIONS 

774  0C  FK  (  1&105— VERT  C-G  MOTION 

775  OC  FK  (2&1  1 )— PITCH  MOTION 
7760C  FK  (3&125--AXLE1  MOTION 

77  7  OC  , 

778 OC  FK  (8&1  75--AXLE6  MOTION 
779 OC  FK (9&18  5 — HORIZ  C-G  MOTION 
7800  FORCT  (75=0. 

781  0  DO  1  1  I  =  1  ,9 

7820  11  FK  (I  )=VAR  (I  +9)*H 
7830  FK  (18  5  =  0. 

7840  FK  (  10  5  =  0. 

785  0  FK  ( 1  1  5  =  0  . 

78  6  0  DO  31  1=1,6 

78  7  0  TEMP  =FORCK  (I  5+DAMP  (I  ) 

7880  FK  (I  +1  1 5  =H*  (TEMP -FORCT  (I  )+FCRC T  (I  + 1  5+FORC W  (I  5- 1 420 . 5*.  271  7 

■^90  FK  ( 1  1  )=FK  ( 1  1 5-LEN  (I  )*TEMP 

79  0  0  FK  (  18  5  =  FK  (  18  5+FORCH  (I  5 
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7910  31  FK  (10)  =  FK  (lO)-TEMP 

7920  FK(10)=H*(FK(10)*.  008-386.) 

7930  FK  ( 18)=H*FK  C 18)*. 008 

79  40  FK  (1  1  )=H*(FK ( 1 1 ) -HORMOM  ) /58  1  700 . 

79  5  0  RETURN 

7960  END 

7970  SUBROUTINE  Ml  1  3 (FK  ) 

7980  DIMENSION  TH (4) ,IY (5) ,FK ( 16) 

7990C*****ALGEBRAIC  UPDATE  OF  VARIABLES 
8000  DATAIY/4, 11 ,18,24,31/ 

8010  DATATH/12. , 10. ,8. ,6./ 

8020  HORMOM- 0. 

8Q30C--C0MPUTATI0N  OF  VERTICLE  IFORCWJ,  HORIZONTAL  [FORCH],  AND 
8040C  MOMENT  [HORMOM]  FORCES  RESULTING  FROM  THE  PROFILE  INPUT  [Y] 
8050  002001  =  1  ,5 

8060  FORCH (I )  =  0 . 

8070  FORCW (I  )  =  0 . 

8080  DO  1  C0J  =  1 ,5 

8090  K  =  I  +2 

8100  L  =  IY (I )+J 

8110  TEMP  =  Y  (L  )- VAR  CK  ) -THRESH  (J  ) 

8120  IFCTEMP)  10,20,20 

8130  10  TEMP  =  0. 

8140  20  FORCWCI  )=FORCW(I  )+TEMP *GAMMA ( J ) 

8150  100  FORCH  (I  )=FORCH (I  )+TEMP  *SI GM A ( J ) 

81 60C--SUSPENSI ON  SPRING  DEFLECTION  [ SPDEF] 

8170  SPDEF  (I  )  =VAR  (  D+LEN  (I  )*VAR  (2)-VAR  (K  ) 

8180  HORMOM  =HORMOM+FORCH  Cl  ) *( 46.+SPDEF ( I  ) ) 

8190  KK= I +1 0 

8200C--SUSPENSI ON  SPRING  RATE  OF  DEFLECTION  [  DSPDF] 

8210  200  DSPDF  (I  )=VAR(9)+LEN(I  )*VAR(10)-VAR(KK) 

8220  VARFEL=0. 

8230C--RESULTING  DEFLECTION  OF  "FEELER"  [VARFEL] 

8240  DO  301 =  1 ,4 

8250  TEMP  =Y  (I  )-TH  (I  ) 

8260  I F (TEMP ) 30 , 30 , 40 

8270  40  VARFEL  =  AMAX  1  (VARFEL  , TEMP  ) 

8280  30  CONTINUE 

8290C--SUSPENSI ON  SPRING  FORCE  AXLES  1&5  [ FORCK ( 1 &5 ) ] 

8300  DO  700  1=  1,5 

8310  IFCSPDEFCI >-.4)710,710,720 

83  2  0  7  2  0  SPDEF  (I  )=.4 

8330  DSPDF  (I  )  =  0. 

8340  710  IFCSPDEFCI >+2.7)730,740,740 
8350  740  FORCKCI  )  =  740. 74*SPDEF  (I  ) 

8360  GO  TO  700 

8370  730  IF  (SPDEF  (I  )+9 . 5 )  74  1  ,  74 1  ,  742 
838  0  7  4  2  FORCKCI  )  =  514.71*SPDEF(I  )-610.28 
83  9  0  GO  TO  700 

8400  741  IFCSPDEFCI >+9.6)743,744,744 
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8410  743  SPDEFCI  )=-9.S 

8420  744  FORCK  (I  )  = 15672. *SPDEF (I )  +  l 433S4. 

8430  700  CONTINUE 

8440  DO  2000  1=1,5 

8450  IF (ABS (DSPDF (I ))- 7. 42)330 ,840 ,840 

8460  830  DAMP  (I  )  =  3 1  6 . 7  1  *D5PDF  ( I  ) 

8470  GO  TO  2000 

8480  840  DAMP (I  )=SI ON (2350. ,DSPDF(I  ) ) 

8490  2000  CONTINUE 

85 00C --TRACK  I NTERCONNECTI Cw  FORCES  [FORCT] 

85  13  TEMP  =  VAR  (3)-VARFEL 

8520  IFCTEMP >50,50,60 

8530  50  FCRCT  (  1  )  =  300.*TEMP 

8540  GOTO  70 

8550  60  FORCT  C  1  )  =  0 . 

85  6  0  7  0  D080I  =  2,5 

8570  J=I+1 

8580  K  =  J  +  l 

8590  80  FORCT (I  )  =  1 75.*(VAR (K  )-VAR (J  ) ) 

SSOOC*****DIFFER£NTIAL  EQUATIONS 
8S10C  FK  C 1 &9 ) --VERT  C-C  MOTION 
8620C  FK (2&1 0)-PITCH  MOTION 
3S3  0C  FK  (3^1  1  ) -AXLE  1  MOTION 

8640C . 

8S50C  FK C7& 15 ) - AXLE5  MOTION 
SSSOC  FK (8&16)-H0RIZ  C-C  MOTION 
8670  FORCT  (  6  )  =  0 . 

8680  DO  11  1  =  1,8 

8690  11  FK  (I  )=H*VAR  (I  +3  ) 

8700  FK  (9 )  =  0 . 

8710  FK (  1  0  )  =  0 . 

8720  FK ( 1 6 )  =  0 . 

8730  DO  31  1=1,5 

3740  TEMP  =FORCK  (I  )+DAMP  (I  ) 

875  0  FK (I  +10)=H* (TEMP -FORCT (I )+FORCT (1  +  1 )+FORCW(I )-500. >*0.772 

8760  FK ( 10)=FK (  1  0 )-EEN (I )*TEMP 

8770  FK ( 1 6 ) =FK ( 1 6 )+FORCH (I  ) 

8780  31  FK (9 ) =FK (9  ) -TEMP 

8790  FK (9)=H*(FK (9)*. 036-386.  ) 

8300  FK  (  1S)=H*FK  (  16)*. 036 

881  0  FK  (  10)=H*(FK  C  1  0  ) -11CRM0M  ) /68 0 00 . 

88  2  0  RETURN 

38  30  END 


C-269 


MO I  SKI 


TABLE  C2 


1  s'NDM 

10  comkonisd 

80  FH I  NT*  "  TAU,  RMS,  ALPHA, DKS RMS,  IX,  MPTS" 
30  HEAD,  TAU,  X,  ALPHA,  RM  S,  MS,  N 
AO  S I  OM  A  M: -  X*  5  Q  R  T  (  1  .  -  EXP  (.-?.•*  ALP  HA*  TAU)  ) 
50  PH  I  NT,  " S I  OMAN®  ",  SI  OKA  M 
60  AA = EXP C - ALPHA « TA U ) 

70  SP=  S I  OMAN*  S I  OK  AM 


100 

XHAR=0 . 

110 

51=0 

120 

sum=o. 

130 

IX®  MS 

1  AO 

ICALLOAUHMDCO, IX) 

150 

o=v-x:oar 

160 

SIW=SUM+V 

170 

1  =  1+1 

180 

I  PCX'- I  >1,2,1 

190 

2  I  F( XBAR )  4,  3,4 

200 

3XBAh=SUM/N 

210 

P  R I  M  T  ,  "  X  -  B  A  H  A  F  T  F.  R 

GAUSS®" , XBAR 

820 

GOTO  5 

230 

4  X  8  A  P.  A  S  =  S  UK  /  M 

240 

PRINT, "X-BAR  AFTER 

SH I  FT®" , XBARAS 

250 

FACT® 1 

260 

1 2Y=0 • 

270 

IX®  MS 

280 

SlM-0  » 

290 

1=0 

300 

8 c;  A L L G A 1  JR M D (  0,  I X  ) 

310 

1=1  +  1 

320 

U=y-XBAR 

330 

I F( I . EO. 1 ) 0=0. 

340 

Y=  Y*AA 

350 

Y  =  Y + V 

360 

X®  Y*  FACT 

370 

I  !•_(  FACT-  1  •  >6,  7,  6 

380 

6  v.  PI 'IF  (  1  ,  )  X 

390 

7'A 

40  0 

S<K«:=SUM+X 

410 

I F ( I - M  >8,9,8 

420 

9SUX-SUX/M 

430 

SUK=SC HT<  SOX) 

44Q 

I F< ? ACT- 1 .>10,11,10 

450 

1  1  FAC T® PM S /SUM 

460 

GOTO 12 

470 

10PP.I  MT,  "JAMS®  " ,  K.'S 

480 

P  H I M  T  ,  "  F  A  i :  T  =  "  ,  -  A  C  T 

490 

PRINT,  “ OU1  PUT  FILE 

XAVK“ 

50  0 

R  FA  01  3,  F  V 

51  0 

CALLCLOSFF ( 1 , FM> 
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